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NERVA MASS P R OPERTIE S 
COMPUTER METHODOLOGY 


1 * INTRODUCTION 

Tnis report documents the computer codes that were used for the weight, 
center of gravity, (C.G.), and mass moment of inertia calculations and documenta- 
tion for the NERVA. The report covers Programs E15301, for basic weights calcu- 
lations and 12001B, used primarily for summation and documentation. 

1 1 ' SIMMARY /CONCEITS IONS 

The two programs, E15301 and 12001B, are the basic tools used for weights 
work on the NERVA program. Used in conjunction with one another, they allow 
for rapid weights estimates for new concepts or changes while allowing for orderly 
documentation, which is a necessity in any effective weights effort. 

Program E15301 requires that each component be resolved into a collection 
of standard shapes. Separate subroutines then process geometric and material 

rlpfifST 1"V •for- 9 a onf *r\r . Tlvc pr*n ar-^rn tlllOn p£7? f. OTTZ3 CcllCUlc* tionS 

necessary to combine these results into a total weight, C.G. and moment of inertia 
for the component. The program is the same as the program COSMIC 400. The program 
was operational on the 1108 computer at the termination of the NERVA program. 

Program 12001B is an Aerojet developed program. The program accepts pre- 
viously calculated weight and C.G. data for individual components. The program 
sums weights and calculates center of gravities and moments of inertia for systems 
of up to four levels of assemblies. The output identifies the engine parts in a 
format usable directly in a formal report. The program has the option of record- 
ing the history of part and weight changes. The current ANSC version is for an 

t 

IBM 360 computer. 

in. TECHNICAL DISCUSSION t 

The rapid and numerous design concepts generated during the study of the 
NERVA placed a heavy burden on personnel responsible for weights analysis and 
weights control. The work was accomplished in an expeditious and efficient manner 
by using computer codes for routine calculations and for orderly documentation. 
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Computer Code E15301 is the basic tool for the initial calculation of 
weights data for a component. The general plan of the code requires that each 
component be resolved into a collection of standard shapes and that the minimum 
number of dimensional parameters defining each be submitted as input data. Only 
a single punched card is required for each geometric shape. Separate subroutines 
then process the data for each geometric shape resulting in the weight, C.G., and 
three moments of inertia for each. The main program then combines the results 
into a total weight package for the component. 

There are 37 different geometric shapes currently in the program. They 
include (1) solids of revolution symmetrical about two principal axes; (2) solids 
of revolution symmetric about one axis; and (3) shapes which are not solids of 
revolutions such as rectangular prisms and wedges. Provision is also made for 
inclusion of independently produced formula for nonstandard shapes. 

The program output is a columnized list of the weight, C.G., and moment 
of inertia for each geometric shape by defined number. The data from all the 
geometric shapes associated with one component are also combined. A typical input/ 
output is included as Appendix A. 

The original program was produced by North American Rockwell. It was ob- 
tained through COSMIC under the identification number 400. 

Program 12001B was written to sum weights , and calculate centers of 
gravity and moments of inertia for a system comprised of major assemblies, assem- 
blies, sub -assemblies and parts. The individual weights calculations must have 
been made previously. Each part name is printed along with its appropriate 
weight information. Summations can be made at each of the assembly levels listed 
above. The percent of the weight estimated, calculated and actual is included in 
the format. Breakout between gimbaled and non-gimbaled components can also be 
made . 

The data are presented in a format usable directly in a formal report. 

The computer output sheets are used as documentation for the detailed engine 
weights. They serve in this manner as a working history of weight changes dur- 
ing engine development. Appendix D is a sample output sheet. 
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The program listings and Users' Manuals are included as Appendices B and 
C, and E and F, for Programs E15301 and 12001B, respectively. 

Additional weights calculations were performed by hand or by use of 
calculation formula set-up on the General Electric teletype time share computer. 
These calculations are special in nature and of limited application and are not 
documented . 
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PROGRAM E15301 
SAMPLE INPUT/OUTPUT 
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.69254977+03 
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DELTA X 

DELTA 7 


.11594775+0? 

.57976016+01 


.1541 4322+03 
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. 11194664+03 ".56615500+0’^ Typical 'Output for 

• 56750570+03 . ?P46°5 1 5+ 03 the Two Bay 3 Entries 
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.1 1401560+03 

.57050378+02 
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.00 
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2?. 
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.00 

. 37.15 

.00 
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Program 12001B 
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7 I CYLINDER ABOUT AXES OTHER THAN AXIS OF CYLINDER. 74, 75, 76, 77, 78, 79 NOT ALLOWED. 


L = Vx 2 + Y 2 + Z 2 


71 -{HwMSHC 

(Solid) I 


Input: 

W, X, Y, Z, R 


W 1 /+ ~ 


v\ 2 i |r 2 i Jl 2 i r, h 


qjFl |i2/L >1 j 




21 2 1 ! R 2 


"U 1+ ltj jlr| + 


(Thin Wall) 


Input: 

W, X, Y, Z, R 


W 1 + 


vl 2 In 2 


2 I 12/ L Ul 


73 w {[ i+ MlM + (9r(tfJ) 

(Thick Wall) 


W 1 + 


z\ 2 l r 2 I 


L 2 


4- ^ 




-ffi} 


(\ . . / zl 2 l I R 2 + r 2 


X = difference 
between X 
coordinates 


Y = difference 
between Y 
coordinates 


Z = difference 
between Z 
coordinates 











1 


DATE 16 MAY 72 PAGE 

16 MAY 7 2 2 1:51: 14.366 

~~ 16" M AY" 72 ~2ll 51:1 4.366" 

16 MAY 72 21:51:14.366 

16 MA Y 72 21:5 1 :14.440 

16 MAY 72 21:51:14.440 




PEF X 


21:51:14 


IN X 

END OF FILE — UNIT X 


21:51:16 


LIST 1 


21:51:20 




Q ELT DELTA# 1 >710420 > 60418 


G00001 

000002 

000003 

CdeTtav 

SUBROUTINE DELTA 
C COMPUTES DELTA VALUES IN 

COMMON 

REFERENCE 

AXIS SYSTEM 

00004045 

00004050 

00004055 

000004 

IMPLICIT REAL*8 (A-HfO-2) 






00004060 

000005 

DIMENSION 

HOL ( 12 ) » 

W< 100) 

, YB(100>, 

XB(IOO) » 

ZB(IOO) # 

DY00004065 

000006 

1(100) # 

DX(100) 

» DZ(IOO). 

SWY( 100 ) > 

SwX(lOO), SWZ(IOO)# SWYS (100) 

t 00004070 

000007 

2SWXS ( 100 ) t SWZS(IOO)# SDY (100) * 

SOX ( 100 > » 

SOZ< 100) 


00004075 

000000 

COMMON 

PI 







00004080 

000009 

COMMON 

wl 

» YBR » 

XBR 

9 

ZRR 

# DY 1 

# DX1 

00004085 

000010 

COMMON 

DZ1 

» DPY # 

DPX 

f 

DPZ 

» S 

, T 

00004090 

000011 

common 

J 

t N , 

K 

9 

M 

# Y 

# X 

00004005 

000012 

common 

Z 

# RHO » 

A1 

9 

B1 

» Cl 

» A2 

00004100 

000013 

common 

B2 

» C2 , 

R1 

9 

R2 

# R3 

» H 

00004105 

000014 

common 

B 

r A , 

AL 

9 

WT 

i YBT 

# XBT 

00004110 

000015 

common 

ZBT 

* DYT » 

DXT 

9 

DZT 

» SWYT 

> SWXT 

00004115 

000016 

COMMON 

SWZT 

» SWYST , 

SWXST 

9 

SWZST 

» SDYT 

» SDXT 

00004120 

000017 

COMMON 

SDZT 

» HOL . 

W 

9 

YB 

* XB 

# ZB 

00004125 

000018 

COMMON 

DY 

» DX , 

oz 

9 

SWY 

t swx 

# SWZ 

00004130 

000019 

COMMON 

SWYS 

• swxs » 

swzs 

9 

SDY 

t SDX 

» SDZ 

00004135 

000020 

COMMON 

Dl 

r D2 f 

03 

9 

CL1 

» CL2 

# CL3 

00004140 

000021 

COMMON 

CM1 

# CM2 

CM3 

9 

CNl 

» CN2 

» CN3 

00004145 

000022 

COMMON A3 

» B3 # 

C3 

9 

CL1S 

# CL2S 

# CL3S 

00004150 

000023 

common 

CM1S 

» CM2S » 

CM3S 

9 

CN1S 

• CN2S 

f CN3S 

00004155 

000024 

common 

E 

i V , 

PY 

9 

PX 

# PZ 


00004160 

0(10025 

IF (N-200 ) 

100 » 200 » 200 





00004165 

000026 

100 DY1= CL1S+DPY 

+ ( 1 . CD0-CL1S ) * 

DPX 




00004170 

000027 

DX1= CM1S*DPY 

+ (1.0D0-CM1S) * 

DPX 




00004175 

000028 

DZ1= CNTS*OPY _ 

+ cttodo-cnisi 

DPX 




00004100 

000029 

RETURN 








00004105 

000030 

200 DY1= CL1S+DPY 

+CL2S*DPX +CL3S*DPZ 




00004190 

0WO3I 

DXI= cmis*dpy~ 

+CM2S*DPX +CM3S*DPZ 




00004195 

000032 

D21= CN1S*DPY 

+CN2S*DPX +CN3S*DPZ 




00004200 

000033 

RETURN 








00004205 

0000 J4 

END 








00004210 



.1 


a ELT OIRC » 1 » 710420 r 60419 


000001 

000002 

000003 

COIRCOS 

SU8R 
C COMP 

OUT 
UTE 
ici 
NS I 
) » 
(10 
ON 
ON 

INE DIRC 

S DIRECTION COSINES AMD C. 

T REAL* 8 (A-H.O-Z) ' 

ON HOL ( 12 ) . W(100>» 

DX ( 100 ) t DZ ( 100 ) r SWY(IOO) 

G. 



00003755 

00003760 

00003765 

000004 

000005 

000006 

IMPL 

DIME 

1(100 

00003770 

YO(IOO). XB(IOO). ZB(IOO). DY00003775 

. SWX(IOO). SWZ(IOO). SWYS(IOO). 00003780 

000007 

000008 

000009 

2SWXS 

COMM 

COMM 

0). swzs 

PI 

Wl 

(100). SDY(IOO). SDX(IOO). 
. YOR . XBR . ZBR 

SDZ(IOO) 
» DY1 

. DX1 

00003785 

00003790 

00003795 

000010 

common 

DZ1 

. DPY 

. DPX 

. DPZ 

. S 

, T 

00003800 

000011 

common 

J 

. N 

. K 

» M 

. Y 

. X 

00003805 

000012 

common 

z 

. RHO 

. A1 

. D1 

. Cl 

. A2 

00003810 

000013 

common 

82 

. C2 

. R1 

. R2 

. R3 

. H 

00003815 

000014 

common 

B 

. A 

. AL 

. WT 

. YBT 

. XBT 

00003820 

000015 

COMMON 

ZBT 

. DYT 

. DXT 

. DZT 

. SWYT 

. SWXT 

00003825 

000016 

COMMON 

SWZT 

» SWYST 

. SWXST 

. SWZST 

. SDYT 

. SDXT 

00003830 

000017 

common 

SDZT 

. HOL 

. W 

. YB 

. XB 

. ZB 

00003835 

000018 

COMMON 

DY 

# DX 

. DZ 

. SWY 

. SWX 

. SWZ 

00003340 

000019 

common 

SWYS 

. SWXS 

. SWZS 

. SOY 

. SDX 

» SDZ 

00003845 

000020 

COMMON 

D1 

. D2 

. D3 

. CL 1 

. CL2 

. CL3 

00003850 

000021 

COMMON 

CM1 

. CM2 

. CM3 

. CN 1 

. CN2 

. CN3 

00003855 

000022 

common 

A3 

. B3 

. C3 

. CL1S 

» CL2S 

. CL3S 

00003860 

000023 

COMMON 

CM1S 

. CM2S 

. CM3S 

. CN1S 

. CN2S 

. CN3S 

00003865 

000024 

common 

E 

. V 

. PY 

. PX 

. PZ 


00003870 

000025 

Dl=DSQRT(Al**2 

+B1**2 +C1**2) 



i 

00003875 

000026 

CL1 

= A 1/ D1 






00003880 

000027 

CM! 

=81/ D1 






00003885 

61)0028 

CN1 

=C1/ D1 






00003890 

000029 

CL1S 

= CL1**2 






00003895 

000030 

CM1S 

= CM1**2 






00003900 

006031 

CNl’S 

= CN1**2 






00003905 

000032 


IF ( N-200 ) 

100.200.200 




00003910 

000033 

100 YBR= 

Y 

+ CL1*S 






00003915 

000034 

XBR= 

X + 

CM1 *S 






00003920 

000035 

ZOR 

= Z+ CN1 *S 






00003925 

000036 

RETURN 







00003930 


000036 

000039 


000040 

000041 

00 004 2 

000043 

000044 

_000045^ 

000046 

000047 

000048 

000049 

000050 

000051 


000052 
W1 000053 
000054 


200 


83= Cl*A2 - 
C3= Al*02 - 


A1*C2 

B1*A2 


D2=0SQRT(A2**2 +82**2 ,+C2**2) 
D3=DSQRT ( A3**2 +83**2 +C3**2) 
CL2 = A2/D2 


CL2S= CL2**2 
CM2 = B2/D2 
CM 2 S=C M2 * *2 
' CN2 = C2/D2 
CN2S= CN2**2 

_CL3 r A3/D3 

CL3S= CL 3* *2 
CM3 = B3/D3 
CM3 S = CM3**2 
CN3 = C3/D3 
CN3S= CN3**2 
Y8R= Y+5*CL2 


000055 

000056 


XBR= X+S*CM2 
ZBR= Z+S*CN2 


00003935 

00003940 

_00003945_ 

00003950 

00003955 

00003960_ 

00003965 

00003970 

00003975_ 

00003980 

00003985 

_00003990_ 

00003995 

00004000 

00004005_ 

00004010 

00004015 

_00004020_ 

00004025 

00004030 




Q ELT E15301fl'710423, 61857 


000001 

1COSMIC 

ENGINE TEST 

CASE 

ONE 

TALBOTT 

16JAN67 






000002 

1105 1 

0 

20 

0 

1 

0 

-1 

0 

10 





000003 

1 01 1 

0 

36 

0 

1 

0 

1 

0 

10 


9 


32 

000004 

1107 1 

0 

52 

0 

1 

0 

1 

0 

10 


2 

906 18 

000005 

1 02 2 

0 

45 

0 

1 

0 

1 

0 

15 


5 

48 


000006 

2202 3 

115 

275 

0 

29 

0 

0 

1 





15 

000007 

7 


3 




1 



0 



0 

000008 

1101 4 

0 

35 

24 

29 

0 

-1 

0 

2 


1 


5 

000009 

2202 4 

0 

41 

24 

29 

0 

1 

0 





12 

000010 

8 


4 




0 



0 



1 

000011 

1 01 4 

0 

635 

24 

29 

0 

1 

0 

2 


15 


33 

000012 

1 01 4 

0 

90 

7 

29 

0 

0 

1 

2 


15 


14 

000013 

2201 4 

0 

80 

14 

29 

1 

0 

0 

10 


2 

15 


000014 





45 

0 



1 



1 

000015 

71 01 4 

0 

41 

24 

-29 

0 

1 

0 

10 


0 


12 


r 



a ELT FORI * 1 * 7X0420 * 60420 


000001 

C1FOR 






00002420 

000002 

SUBROUTINE FORI 






00002425 

000003 

C FORMULA 

1 - hollow cylinder 1 



00002430 

000004 

IMPLICIT REAL*8 

( A-H *0- 

Z) 




00002435 

000005 

DIMENSION 

HOL ( 12) 

* W(100)* 

YB(100) » 

XB(100) * 

ZB(100) * 

DY00002440 

000006 

1(100)* DX ( 100 ) * 

DZ(100) 

* SWY(IOO) 

. SWX(IOO)* SWZ(IOO)* SWYS(IOO) * 00002445 

000007 

2SWXS (100) * SWZS(IOO)* SDY(IOO)* SOX(IOO). 

SDZ(IOO) 


00002450 

000008 

COMMON PI 






00002455 

000009 

COMMON W1 

* YBR 

* XBR 

* ZBR 

* DY1 

* DX1 

00002460 

000010 

COMMON DZ1 

* DPY 

* DPX 

* DPZ 

* S 

* T 

00002465 

000011 

COMMON J 

* N 

* K 

* M 

* Y 

* X 

00002470 

000012 

COMMON Z 

* RHO 

* A1 

* B 1 

* Cl 

* A2 

00002475 

000013 

COMMON B2 

* C2 

* R 1 

* R2 

* R3 

* H 

00002480 

000014 

common b 

* A 

* AL 

* WT 

* YBT 

* XBT 

00002465 

000015 

COMMON 2BT 

* DYT 

* DXT 

* DZT 

* SWYT 

* SWXT 

00002490 

000016 

COMMON SWZT 

* SWYST 

* SWXST 

* SWZST 

* SDYT 

* SDXT 

00002405 

000017 

COMMON SDZT 

* HOL 

* W 

* YB 

* XB 

* ZB 

00002500 

000018 

COMMON BY 

* DX 

, DZ 

* SWY 

* SWX 

* SWZ 

00002505 

000019 

COMMON SWYS 

» SWXS 

» SWZS 

* SDY 

* SDX 

* SDZ 

00002510 

000020 

COMMON D1 

* D2 

* D3 

# CL1 

* CL2 

* CL3 

00002515 

000021 

COMMON CM1 

* CM2 

* CM3 

* CNl 

* CN2 

* CN3 

00002520 

0 00022 

COMMON A3 

* B3 

* C3 

* CL1S 

* CL2S 

* CL3S 

00002525 

000023 

COMMON CM1S 

* CM2S 

, CM3S 

* CN1S 

* CN2S 

* CN3S 

00002530 

000024 

COMMON E 

* V 

, PY 

* PX 

* PZ 


00002535 

000025 

Wl= Pl*RHO*H*(Rl**2-R2**2) 




00002540 

000026 

S-0 • 0D0 






00002545 

000027 

CALL DIRC 






00002550 

000028 

DPY= • 5D0*W1* (Rl**2 +R2**2) 




00002555 

000029 

DPX= W1/12.0D0*(3.0D0*(R1**2+R2**2> +H**2) 


00002560 

000030 

DPZ= DPX 






00002565 

000031 

CALL DELTA 






00002570 

000032 

RETURN 






00002575 

000033 

END 






00002580 



1 


1 


« ELT 

FOR101 » 

1 # 710420 » 60422 








000001 

C101F0R 






00004525 


000002 


SUBROUTINE F0R101 





00004530 


000003 

C 

FORMULA 101 - FRUSTRUM 'OF A 

SOLIO CONE 


00004535 

- 

000004 


IMPLICIT REAL*8 <A-H#0- 

Z) 




00004540 


000005 


dimension 

HOL ( 12 ) 

# W(100>» 

YB(100> » 

XB(100) # 

ZB < 100 ) # 

DY00004545 


000006 


1(100)# DX(100) 

* DZ(100) 

# SWY(IOO) 

» SWX(IOO), SWZ(IOO)# SWYS ( 100 ) # 00004550 


000007 


2SWXS ( 100 ) # SWZS(IOO)# SDY(IOO)# SDX(IOO)# 

SDZ(IOO) 


00004555 


000008 


common pi 






00004560 


000009 


common wl 

# YBR 

» XBR 

# ZBR 

. DY 1 

# DX1 

00004565 


000010 


COMMON DZ1 

. OPY 

. DPX 

# DPZ 

» S 

t T 

00004570 


000011 


COMMON J 

» N 

» K 

f M 

* Y 

r X 

00004575. 


000012 


COMMON Z 

» RHO 

# A 1 

. B1 

* Cl 

f A2 

00004580 


000013 


COMMON B2 

# C2 

# R1 

# R2 

» R3 

# H 

00004585 


000014 


COMMON B 

. A 

t AL 

» WT 

» YBT 

t XBT 

000045°0 


000015 


COMMON ZBT 

# DYT 

» DXT 

. DZT 

# SWYT 

t SWXT 

00004595 


000016 


COMMON swzt 

. SWYST 

. SWXST 

. SWZST 

. SDYT 

» SDXT 

00004600 


000017 


COMMON SDZT 

. HOL 

t W 

# YB 

» XB 

» ZB 

00004605 


000018 


COMMON DY 

# OX 

# DZ 

# SWY 

# SWX 

# swz 

00004610 


000019 


COMMON swys 

» SWXS 

. SWZS 

. SOY 

» SDX 

» SDZ 

00004615 


000020 


COMMON 01 

. 02 

* 03 

* CLl 

» CL2 

t CL3 

00004620 


000021 


COMMON CM1 

# CM2 

. CM3 

# CNl 

» CN2 

# CN3 

00004625 


000022 


COMMON A3 

. B3 

. C3 

# CL1S 

» CL2S 

# CL3S 

00004630 


000023 


COMMON CM1S 

# CM2S 

# CM3S 

# CN1S 

» CN2S 

t CN3S 

00004635 

. 

000024 


COMMON E 

# V 

» PY 

# PX 

# PZ 


00004640 


000025 


£= Rl**2 +R1*R2 +R2**2 





00004645 


000026 


F=(R1-R2> /R1 






00004650 


000027 


G= E* (Rl**2 +R2**2) - (R1*R2)**2 




00004655 


000028 


U= F**2 -3.0D0+F +3.000 





00004660 


000029 


P= .15D0/U*(F**4-5.0D0*F**3 +10,0D0*F*F - 

10. 0D0*F 

+5.0D0) 

00004665 


000030 


Q=1.0Q0/U**2*< 

• 1D0*U* ( 6 

.0D0*F**2-15.0D0*F*10.0D0) 

-• 0625D0* (3. 

0D0*00004670 


000031 


1 F*F-8 • OOO+F+6* 

0 ) **2 ) 





00004675 


000032 


Wl= RHO *E*PI 

♦H/3.0D0 





00004680 


000033 


S= .25D0+H/E *(Rl*Rl+2. 

0D0*R1*R2 

+3.0D0* 

R2*R2 ) 


00004685 


000034 


CALL DIRC 






00004690 


000035 


OPY = . 3D0 *W1 /E * G 





00004695 


000036 


DPX= Wl *(P*R1**2 +Q*H**2 ) 




00004700 


000037 


dpz = dpx ' 






00004705 


000038 


CALL DELTA 





, 

00004710 


000039 


RETURN 






00004715 


000040 


end 






00004720 



P 




\ 






tr , 










\ 

i 

\ 



n 


0 ELT FOR 102» 1 ' 710420 > 60424 


000001 

000002 

000003 


000004 


000026 

000027 

000028 

000029 

000030 

'13000317 

000032 

000033 

“W0034 - 

000035 

000036 


C 10 2 FOR ' 

SUBROUTINE FOR102 

C FORMULA 102 - OUTSIDE FILLET OF REVOLUTION 


IMPLICIT REAL*8 <A-H*0-Z) 


00004725 

00004730 

_00004735_ 

00004740 



000005 

DIMENSION 

HOL ( 12 ) 

> w(ioo>* 

YB(100) » 

XB(IOO) * 

ZB ( 100) * 

DY00004745 


000006 

1 (100) » 

DX(IOO) 

# DZ(IOO) 

» SWY ( 100 ) # SWX(100)> SWZ(100)» SWYS(IOO) 

» 00004750 


000007 

2SWXS ( 100 ) > SWZS(IOO), SDY ( 100 ) t 

SDX(ion) , 

SDZUOO) 


00004755 


000008 

common 

PI 






00004760 


000009 

common 

Wl 

> YBR 

» XBR 

# ZRR 

» DY1 

. DX1 

00004765 


000010 

common 

DZ1 

• DPY 

» DPX 

» DPZ 

t s 

, T 

00004770 


000011 

common 

J 

> N 

, K 

# M 

» Y 

r X 

00004775 


000012 

common 

z 

> RHO 

» A 1 

# B1 

» Cl 

» A2 

00004780 


000013 

common 

B2 

# C2 

» R1 

* R2 

» R3 

» H 

00004785 


000014 

common 

B 

> A 

, AL 

• WT 

» YBT 

f XBT 

00004790 


000015 

common 

ZBT 

» DYT 

» DXT 

t DZT 

# SWYT 

# SWXT 

00004795 

- 

000016 

common 

SWZT 

, SWYST 

t SWXST 

* SWZST 

» SDYT 

t SDXT 

00004800 

i 

000017 

common 

SDZT 

> HOL 

, w 

# yb 

» XB 

, ZB 

00004805 

I 

ooooia 

common 

DY 

» DX 

. OZ .. SWY 

* SWX 

» swz 

00004810 


000019 

common 

SWYS 

, swxs 

r SWZS 

* SDY 

► SDX 

, SDZ 

00004815 

o 

000020 

common 

Dl 

, D2 

. 03 

» CL1 

* CL2 

r CL3 

00004820 

3 

03 

000021 

common 

CM1 

. CM2 

, CM3 

# CNl 

# CN2 

» CN3 

00004825 

0 

000022 

common 

A3 

, B3 

» C3 

# CHS 

» CL2S 

r CL3S 

00004830 

K 

000023 

common 

CM1S 

» CM2S 

f CM3S 

* CN1S 

► CN2S 

, CN3S 

00004835 


000024 

COMMON 

E 

» V 

, PY 

. PX 

» PZ 


00004840 


000025 

E= RHO 

*R2**2 






00004845 


Wl= E*<1.3483832D0*R1 + . 30 118575D0*R2 ) 

T= E*R2 /Wl*(l. 047197600*91 +. 2617993900 *R2 ) 
-T' 


00004850 

00004855_ 

00004860 

00004865 


S= R2 
CALL DIRC 

DPY= E*(1.3483632D0*R1**3 + . 90355662DO+R 1*R1*R2 +.34404744D0 *R1* 00004870 
TR2*R2" + . 055 83 5682’ DO* R 2 * *3 T ' 00004875 

DPX= • 5QO*OPY +E* R2*R2*< .8606946400 *R1 +.23237608D0*R2) -W1*T*T 00004880 
DPZ= DPX 00004885 

CA‘LTT _ D“ELTA 


RETURN 

END 


00004890 

00004895 

00004900 


JO 

-© 



M ELT FOR103rlr710420, 60426 


000001 

C103FOR 








00004905 

000002 


SUBROUTINE FOR103 






00004910 

000003 

C 

FORMULA 

103 - inside fillet 

OF REVOLUTION 



00004915 

000004 


IMPLICIT REAL*8 <A-H>0-Z) 






00004920 

000005 


DIMENSION 

HOL< 12) # 

W(100) # 

YB< 100) , 

XB(IOO) » 

ZB(IOO ) , 

DY0OOO4925 

000006 


1(100) f 

DX(100) 

» DZ(100), 

SWY(IOO) 

. SWX(lOO). SWZ(IOO) 

» SWYS (100) 

» 00004930 

000007 


2SWXS ( 100 ) » SWZS(IOO), SDY ( 100) > SDX(IOO). 

snz( loo) 



00004935 

000008 


COMMON 

PI 







00004940 

000009 


COMMON 

Wl 

» YBR » 

XBR 

# ZBR 

» DY1 

9 

DX 1 

000049«5 

000010 


COMMON 

DZ1 

. DPY » 

DPX 

» DPZ 

t s 

9 

T 

00004950 

000011 


COMMON 

J 

, N , 

K 

» M 

* Y 

9 

X 

00004955 

000012 


common 

Z 

» RHO * 

A1 

* B1 

* Cl 

9 

A2 

00004960 

000013 


COMMON 

B2 

, C2 » 

R1 

# RP 

t R3 

9 

H 

00004965 

000014 


common 

B 

, A , 

AL 

* WT 

* YBT 

9 

XBT 

00004970 

000015 


COMMON 

ZBT 

t DYT » 

DXT 

. D7.T 

* SWYT 

9 

SWXT 

00004975 

000016 


COMMON 

SWZT 

> SWYST , 

SWXST 

» SW7ST 

> SDYT 

9 

SDXT 

00004980 

000017 


common 

SDZT 

» HOL . 

W 

* YB 

• XB 

9 

ZB 

000049R5 

000018 


COMMON 

DY 

» DX , 

OZ 

. SWY 

» SWX 

9 

SWZ ... 

00004990 

000019 


COMMON 

SWYS 

. SWXS r 

swzs 

. SDY 

# SDX 

9 

SDZ 

00004995 

000020 


COMMON 

D1 

, D2 , 

D3 

r CL1 

• CL2 

9 

CL3 

00005000 

000021 


COMMON 

CM1 

. CM2 . 

CM3 

* CM1 

# CN2 

9 

CN3 

00005005 

000022 


COMMON 

A3 

i B3 . 

C3 

» CLIS 

* CL2S 

9 

CL3S 

00005010 

000023 


common 

CM1S 

• CM2S . 

CM3S 

. CM1S 

* CN2S 

9 

CN3S 

00005015 

000024 


COMMON 

E 

r V , 

PY 

► PX 

» PZ 



00005020 

000025 


E= RHO 

*R2**2 







00005025 

000026 


Wl= E*C1.3483832D0*R1 +1. 

047197600+R2) 




00005030 

000027 


S= E*R2 

/Wl *< 

.30118 57 5D0*R1 +.2617993900 

*R2) 



00005035 


000028 CALL DIRC 00005040 
000029 DPY= E*(1.34R383200 *R1**3 +3. 141592700*R1*R1*R2 +2.5820B38D0 *R1*00005045 
000030 1R2*R2+.73303829D0*R2**3) 00005050 


000031 

DPX= . 5D0*DPY 

+E*R2+R2* ( . 11468258P0*R1 + '.10471976D0 *R2) -W1*S*S 00005055 

000032 

dpz=dpx 

00005060 

000033 

CALL DELTA 

00005065 

000034 

RETURN 

00005070 

000035 

end 

00005075 


ro 



0 ELT FOR104,lr710420, 60428 


000001 

000002 

000003 

C104F0R 

SUBROUTINE F0R104 

C FORMULA 104 - SOLID SPHERICAL SEGMENT » 2 BASES 


00005080 

00005085 

00005090 

000004 

IMPLICIT REAL*8 

(A-HfO-Z) 





00005095 

000005 

DIMENSION 

HOL ( 12) , W(100) 

, YB(100) 

, XB ( .1 00 ) , 

ZB ( 100) r 

DY00005100 

000006 

1(100) , DX ( 100 ) t 

DZ(IOO), SWY(IOO), SWXd 

00), SWZ(IOO) 

, SWYS(IOO) 

, 00005105 

000007 

2SWXS ( 100 ) r SWZS(IOO), SDY(IOO), 

sDX(ion) 

> SDZ(IOO) 



00005110 

000008 

COMMON pi 






00005115 

000009 

COMMON W1 r 

YBR , XBR 

• ZgR 

* DY 1 

9 

DX1 

00005120 

000010 

COMMON DZ1 * 

DPY f DPX 

* DPZ 

, S 

t 

T 

00005125 

000011 

COMMON J , 

N * K 

» M 

, Y 

9 

X 

00005130 

000012 

COMMON Z » 

RHO # A 1 

t B 1 

» Cl 

9 

A2 

00005135 

000013 

COMMON B2 » 

C2 , R1 

. R2 

, R3 

9 

H 

00005140 

000014 

COMMON B » 

A * AL 

• WT 

, YBT 

9 

XBT 

00005145 

000015 

COMMON ZBT r 

DYT , DXT 

» DZT 

, SWYT 

9 

SWXT 

00005150 

000016 

COMMON SWZT , 

SWYST . SWXST 

> SWZST 

* SDYT 

9 

SDXT 

00005155 

000017 

COMMON SDZT 

HOL . W 

# YB 

» XB 

9 

ZB 

00005160 

000018 

COMMON DY » 

DX , DZ 

. SWY 

, swx 

9 

SWZ 

00005165 

000019 

COMMON SWYS > 

SWXS , SWZS 

# SDY 

• SDX 

9 

SDZ 

00005170 

000020 

COMMON D1 f 

D2 . D3 

* CL1 

» CL2 

9 

CL3 

00005175 

000021 

COMMON CM1 * 

CM2 » CM3 

» CM1 

t CN2 

9 

CN3 

00005180 

000022* 

COMMON A3 « 

83 » C3 

, CL1S 

* CL2S 

9 

CL3S 

00005185 

000023 

COMMON CM IS * 

CM2S » CM3S 

» CN1S 

, CN2S 

9 

CN3S 

00005190 

000024 

COMMON E r 

V * PY 

* PX 

» PZ 



00005195 

000025 

E= P I *RHO*H 






00005200 

000026 

Wl= E*<R1*R1~<3. 

ODO*B*B +3.000*B*H +H*H) 

/3.0D0) 



00005205 

000027 

T= E/W 1 * (Rl**2 

*(B+.500*H) -B**3 “1 • 5D0*B*B*H -B*H*H -. 25D0*H**3 ) 0000521 0 

ODoTT28 

S= T-B 






00005215 

000029 

CALL D IRC 






00005220 

000030 

DPY= • 5D0*E* (Rl**4 +B**4 +2 . 0D0*P**3*H +2 . 0D0*B**2*H**2 +B*H**3 

+ 00005225 

000031 

1 . 2D 0*H* *4-2.000/3. 0D0*R1**2*(3« 

ODO#B*8+3 

.0D0*8*H+H**2) ) 

00005230 

000032 

DPX= E *( .25D0*R1**4 + Rl**2 /6 

. 0D0* ( 3. 

ODO*B*B +3 

. 0D0*B*H +H*H) 

00005235 

000033 

l-.75*B*(B**3+2.0D0*B*B*H+2«0D0*B*H*H+H+*3)-. 15D0*H**4 ) -Wl*T*T 

00005240 

000034 

DPZ=DPX 






00005245 

000035 

CALL DELTA 






00005250 

000036 

RETURN 






00005255 

000 037 

END 






00005260 



0 ELT FORI 05 > 1» 710420 r 60430 


000001 

000002 

000003 

C105FOR 

SUBROUTINE FOR105 
C FORMULA 105 - SOLID 

HEMISPHERE 



00005265 

00005270 

00005275 

000004 

IMPLICIT REAL*8 

(A-H.O-Z) 





00005280 

000005 

DIMENSION 


HOL( 12) » 

W( 100) > 

YB ( 100 ) t 

XB( 100 ) t 

ZB ( 100 ) » 

DY00005285 

000006 

1(100) » 

DX(100) 

9 

DZ(100) * 

SWY (100) » SWX(100)f SWZ(IOO). SWYS(IOO) 

» 00005290 

000007 

2SWXS ( 100 ) » SWZS(IOO), SDY(IOO)# 

SDX(IOO) » 

SDZ(IOO) 


00005295 

000008 

COMMON 

PI 







00005300 

000009 

COMMON 

W1 


YBR . 

XBR 

» ZBR 

» DY1 

» DX1 

00005305 

000010 

common 

DZ1 


DPY » 

DPX 

i DPZ 

t s 

» T 

00005310 

000011 

COMMON 

J 


N t 

K 

t M 

» Y 

r X 

00005315 

000012 

COMMON 

Z 


RHO » 

A1 

* B1 

* Cl 

> A2 

00005320 

000013 

COMMON 

B2 


C2 , 

R1 

* R2 

t R3 

• H 

00005325 

000014 

COMMON 

B 


A ' 

AL 

# WT 

* YBT 

» XBT 

00005330 

000015 

COMMON 

ZBT 


DYT # 

DXT 

* DZT 

f SWYT 

» SWXT 

00005335 

000016 

COMMON 

SWZT 


SWYST , 

SWXST 

» SWZST 

> SDYT 

» SDXT 

00005340 

000017 

COMMON 

SDZT 


HOL » 

W 

* YB 

t XB 

» ZB 

00005345 

000018 

COMMON 

DY 


DX , 

DZ 

# SWY 

t SWX 

» SWZ 

00005350 

000019 

COMMON 

SWYS 


SWXS . 

SWZS 

•# SDY 

» SDX 

• SDZ 

00005355 

000020 

common 

D1 


D2 # 

D3 

r CLl 

» CL2 

, CL3 

00005360 

000021 

COMMON 

CMl 


CM2 r 

CM3 

* CNl 

* CN2 

r CN3 

00005365 

000022 

COMMON 

A3 


B3 

C3 

. CL1S 

> CL2S 

* CL3S 

00005370 

000023 

COMMON 

CM1S 


CM2S # 

CM3S 

# CN1S 

* CN2S 

, CN3S 

00005375 

000024 

COMMON 

E 


V , 

PY 

* PX 

» PZ 


00005380 

000025 

Wl= 2.0DO/3.0DO*PI*RHO*R1**3 




000053R5 

000026 

S = • 375D0 *Rl 







00005390 

000027 

CALL DIRC 







00005395 

000028 

DPY= . 4D0*W1*R1**2 





00005400 

000029 

DPX= • 259375D0 

*Wl *Rl**2 





00005405 

000030 

DPZ=DPX 








00005410 

000031 

CALL DELTA 







00005415 

000032 

RETURN 








00005420 

000033 

END 








00005425 


\ 

to 

\ 

\ 



a ELT FOR106f 1 t 710420 t 60431 


000001 

000002 

000003 

C106FOR 

SUBROUTINE FOR106 

C FORMULA 106 - OUTER QUARTER 

OF SOLID 

TORUS 


00005430 

00005435 

00005440 


000004 

000005 

000006 

IMPLICIT REAL*8 (A-HfO-Z) 
DIMENSION HOL( 12) » W(100). 

1(100) » DX ( 100 ) * DZ(100). SWY(IOO) 

00005445 

YB(100). XB { 1 00 ) f ZB ( 100) » DY00005450 

# SWX(IOO), SWZ(100)r SWYS( 100) > 00005455 


000007 

000008 

000009 

2SWXS ( 100 ) t SWZS(100)r SDY ( 100 ) * SDX(IOO), 
COMMON pi 

COMMON Wl , YBR , XBR » ZRR 

SDZ(IOO) 
» DY1 

• DX1 

00005460 

00005465 

00005470 


000010 

COMMON 

DZ1 

* DPY 

» DPX 

# DPZ 

» S 

r T 

00005475 


000011 

COMMON 

J 

> N 

* K 

» M 

» Y 

* X 

00005480 


000012 

COMMON 

Z 

t RHO 

, A1 

i 81 

r Cl 

r A2 

00005485 


00U013 

common 

B2 

» C2 

. R 1 

. R2 

► R3 

, H 

00005490 


000014 

COMMON 

B 

r A 

» AL 

t WT 

» YBT 

» XBT 

00005495 


000015 

COMMON 

ZBT 

» DYT 

# DXT 

' DZT 

» SWYT 

. SWXT 

00005500 


000016 

COMMON 

SWZT 

» StfYST 

. SWXST 

* SWZST 

» SDYT 

. SDXT 

00005505 


000017 

common 

SDZT 

f HOL 

. W 

* YB 

f XB 

t ZB 

00005510 


000018 

COMMON 

DY 

r DX 

, DZ 

. SWY 

. SWX 

» swz 

00005515 


000019 

COMMON 

SWYS 

» SWXS 

# SWZS 

. SOY 

r SDX 

» SDZ 

00005520 


000020 

COMMON 

D1 

. D2 

, D3 

. CL1 

* CL2 

» CL3 

00005525 


000021 

COMMON 

CM1 

. CM2 

» CM3 

» CMl 

* CN2 

► CN3 

00005530 


000022 

COMMON 

A3 

» B3 

> C3 

* CL IS 

» CL2S 

► CL3S 

00005535 


000023 

COMMON 

CM1S 

» CM2S 

, CM3S 

f CN1S 

» CN2S 

» CN3S 

00005540 


000024 

COMMON 

E 

. V 

» PY 

• PX 

» PZ 


00005545 

‘ 

000025 

E= .5D0*PI *RHO *R2**2 





00005550 


000026 

Wl= E*<PI*R1 +4.0D0/3.0D0+R2) 




00005555 


000027 

S= .5D0+R2 * ( 8 

0D0*R 1 +3 

,ODO*R2) 

/ <3.0D0*PI*R1 +4 

0D0*R2 ) 

00005560 


000028 

CALL 01 

RC 






00005565 

, 

000029 

DPY= E*( PI*R1**3 +4.0D0*R1*R1*R2 

+ • 75D0*P 

I*R1*R2*R2 +8.0DO*R2**3 00005570 


000030 

1/15. 0D0) 






00005575 


0UOC31 

D^X= . 5l)0*UP Y +E*R2**2 * ( .25D0*PI*R1 +4 . 0D0/15. 0D0*R2 ) -Wl*S*S 00005580 


000032 

DPZ=DPX 







00005585 


000033 

CALL DELTA 






00005590 


000034" 

RETURN 







00005595 


000035 

end 







00005600 




13 ELT FOR107»1»710420» 60433 


00 0001 
000002 
_000003 
000004 
000005 
_000006 
000007 
000008 
000009 
000010 
000011 
_0 0 0 012 
000013“ 
000014 
_0 0 0 0 1 5 

oobdi6 

0C0017 
000018 
000019 
000020 
_ 000021 _ 
000022 
000023 
_000024 
000025“ 
000026 
_000027 
00 0028 
000029 
_0 0 0 030 
000031 
000032 
000033 
000034 
000035 
_000036_ 
000037 
000038 

_0 00039, 

000040 

000041 

000042_ 

000043 

000044 

000045 

000046 


C107FOR 

SUBROUTINE FOR107 

C FORMULA 107 - FRUSTRIJM OF A HOLLOW CONE 

REAL*8 ( A-H » 0-2 ) 

HOL( 12) . W(l'0Q)» YB(IOO)* XB(100)» ZB<100)» 
_ii 1.0 0 ) !_ OX ( 100) » DZ ( lOOJjr SWYUOOd SWX (109)» SWZ(100)> SWYSt 
SWZSC100), SDY(ioO)# SOX (100), SDZ(IOO) 


IMPLICIT 

DIMENSION 


2SWXS (100 ) 


common 

COMMON 


PI 

W1 


DZ1 

J 

z 


B2 

B 

ZBT 


SWZT 

SDZT 

DY 


COMMON 
COMMON 
_COMMON_ 

COMMON 
COMMON 
—COMMON. 

COMMON 

common 

_COMMON_ 

COMMON 

common 

_COMMON 

COMMON A3 
COMMON CM1S 

_COMMON E 

Ul= R1-R2 
T- R2-R3 
0= U1 / H 


SWYS 

D1 

CMl 


YBR 


DPY 

M 

RHO 


C2 

A 

DYT 


SWYST 

HOL 

DX 


SWXS 

D2 

CM2 


B3 

CM2S 

V 


XBR_ 

DPX 

K 

A1 


R1 

AL 

OXT 

SWXST 

W 

-DZ 

SWZS 

D3 

_CM3 

C3 

CM3S 

PY 


ZBR 


DPZ 

M 

B1 


R2 

WT 

_DZ_T_ 


SWZST 

YB 

_SWY 

SDY 

CL1 

CMl 


CLIS 

CN1S 

PX 


DY1 


S 

Y 

Cl 


R3 

YBT 

S WYT 


SDYT 

X8 

_s ,wx_ 

SDX 

CL2 

CM2 

CL2S 

CN2S 

PZ 


-T) 


E= PI * RHO * T 
El= E * ( 2 . 0D0+R1 

E 2~ 2. 000* E * U1 

E3= , 5D0 *E /Q 
E4= 2 • 0D0*E3 /Q**2 


DX1 


T 

X 

A2 


H 

XBT 

_S.WX_T_ 

SDXT 

ZB 

_5WZ 

SDZ 

CL3 

CM3 


CL3S 

CN3S 


W l= E * H *(R1+R3) 

S= H/3.0D0*(3.0D0*E1 -2.~0D0*E2) / (2.000+E1 -E2) 

B= R1 -Q+S 
U2= Rl**2 -R2**2 
U3= Rl**3 -R2**3 
U4= Rl**4 — R2**4 

C ALL DIRC ; 

DPY = E3 * ( U4 -2.0D0*T*IJ3 +2 . 0D0*T*T*U2 - T**3 *U1) 

DPX= • 5D0*DPY +E4 *(.5D0*U4 -<4.0D0*B+T) /3.0D0*U3 +B*<B+T) 

1*8*T*U1 ) 

DPZ= DPX 
CALL DELTA 
RETURN 
END 


00005605 

00005610 

00005615 

00005620 
DY00005625 
100), 00005630 
00005635 
00005640 
0 0005645 
00005650 
00005655 

00005660 

00005665 

00005670 

0000567.5 

00005680 

00005685 

000056.90 

00005695 

00005700 

00005705 

00005710 

00005715 

00005720 

00005725 
00005730 
000 05735 


00005740 

00005745 

00005750 

00005755 

00005760 

00005765 

00005770 

00005775 

_00005780 

00005785 

00005790 

00005795 


00005800 
*U2 -B00005805 

00005810 

00005815 

00005820 

00005825 

00005830 



Q ELT FOR108»l»710420p 60435 


000001 

000002 


000025 

000026 


000038 


000051 


0C0052 
000053 
000054 


000055 

000056 


C108FOR 

SUBROUTINE FOR108 


00005835 

00005840 


CALL FOR101 
WF= Wl 
YBF= YBR 


00005960 

00005965 


Z = Z+.5D0*H *CN1 


00006020 


000039 

CALL FORI 




00006025 

000040 

WC=W1 




00006030 

000041 

YBC = YBR 




00006035 

000042 

XBC = XBR 




00006640 

000043 

ZBC = ZBR 




00006045 

000044 

DYC = DY1 




00006050 

000045 

DXC = DXl 




00006055 

000046 

OZC = DZ1 




00006060 

000047 

Wl= WC+Wr 




00006065 

000048 

YBR= ( WF+YBF 

+WC*Y3C ) 

/ 

Wl 

00006070 

000C49 

XBR= ( WF*XBF 

+wc*xac) 

/ 

Wl 

00006075 

000050 

ZBR= (WF*ZBF 

+WC*ZBC) 

/ 

wl 

00006080 


DYlr W F *(X8F**2 +Z8F**2) + WC*(XBC**2 +ZBC**2) +DYF + DYC -W1*(X BR0 0 0 060 85_ 
1**2 +ZBR**2 ) \ 00006090 

0X1= WF*(YBF**2 +ZBF**2> +WC*(YBC**2 +Z6C**2) +DXF +DXC -Wl*( YBR00006095 
1**2 +Z3R**2) 00006100 


DZl= WF* (XBF**2 +YBF **2 ) 
1R**2 + Y8R**2) 


+ WC*TXB'C**2 + YRC**2) +DZF +DZC - Wl* ( XB000061 05 

00006110 


000003 

C FORMULA 108 

- annular 


FRUSTRUM 

- CYLINDRICAL HOLE 

00005845 

000004 

IMPLICIT REAL*8 

(A-HpO-Z) 





00005850 

000005 

dimension 

HOL ( 12 ) p 


W(100) p 

YB(100) p 

XB ( 1 00 ) » 

ZB(100) p 

DY00005855 

000006 

1(100) > 

DX(100> p 

DZ(100) p 


SWY(IOO) 

p SWX(IOO). SWZ(100)p SWYS (100) 

p 00005860 

000007 

2SWXS (100) • SWZS(100)p SDY(IOO)* SDX(IOO)# 

SDZ(IOO) 


00005865 

000008 

COMMON 

PI 







00005870 

000009 

common 

Wl 

p YBR 


XBR 

p ZBR 

p DY1 

p DXl 

00005875 

000010 

COMMON 

DZi 

p DPY 


DPX 

p DPZ 

p S 

p T 

00005880 

000011 

COMMON 

J 

p N 


K 

p M 

p Y 

p X 

00005885 

000012 

common 

z , 

p RHO 


A 1 

p B1 

p Cl 

p A2 

00005890 

000013 

COMMON 

B2 

p C2 


R 1 

p R2 

p R3 

p H 

00005895 

000014 

COMMON 

B 

» A 


AL 

p WT 

p YBT 

p XBT 

00005900 

000015 

COMMON 

ZBT 

p OYT 


OXT 

p DZT 

p SWYT 

p SWXT 

00005905 

000016 

COMMON 

SWZT 

p SWYST 


SWXST 

p SWZST 

p SDYT 

p SDXT 

00005910 

000017 

common 

SDZT 

p HOL 


W 

p YB 

p XB 

p ZB 

00005915 

000018 

COMMON 

DY 

p DX 


DZ 

p SWY 

p SWX 

p SWZ 

00005920 

000019 

COMMON 

SWYS 

p SWXS 


SWZS 

p SDY 

p SDX 

p SDZ 

00005925 

000020 

COMMON 

D1 

p D2 


D3 

p CL1 

p CL2 

p CL3 

00005930 

000021 

COMMON 

CMl 

p CM2 


CM3 

p CMl 

p CN2 

p CN3 

00005935 

000022 

common 

a3 

p B3 


C3 

p -CL1S 

p CL2S 

p CL3S 

00005940 

000023 

COMMON 

CM1S 

p CM2S 


CM3S 

p CMlS 

p CN2S 

p CN3S 

00005945 

000024 

COMMON 

E 

p V 


PY 

p PX 

p PZ 


00005950 


001)028 

XBF= XBR 

00005970 

000029 

ZbF= ZBR 

00005975 

000030 

DYF = DY 1 

00005980 

00 0031 

DXF = ~DX 1 

00005985 

000032 

DZF = DZI 

00005990 

000033 

Rl= R3 

00005995 

000034 

R2= J. ODO 

00006000 

000035 

RHO= -RHO 

00006005 

000036 

Y= Y+.5D0+H *CL1 

00006010 

000037 

X= X+.500*H *CM1 

00006015 
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000001 

C109FOR 




00006125 


000002 

SUBROUTINE FOR109 



00006130 


000003 

C FORMULA 109 

- ANNULAR 

CYLINDER - CONICAL HOLE 


00006135 


000004 

IMPLICIT REAL*8 

(A-H.O-Z) 


00006140 


000005 

dimension 

HOL ( 12 ) » 

W ( 1 00 ) f YB(100)f XR(100)f 

ZB ( 100) f 

DY00006145 


000006 

1(100) . DX(IOO) . 

DZ(100) . 

SWY(100)f SWX(100)f SWZ(100)f SWYS ( 100 ) 

f 00006150 


000007 

2SWXS ( 100 ) » SWZS(IOO). SDY(IOO). SDX(lOO), SDZ(IOO) 


00006155 


000008 

COMMON PI 


1 


00006160 


000009 

COMMON Wl 

. YBR 

F XBR F ZBR F DY1 

f DX1 

00006165 


000010 

COMMON DZ1 

f DPY 

F DPX F DPZ F S 

F T 

00006170 


000011 

COMMON J 

. M 

F K F M F Y 

F X 

00006175 


000012 

COMMON Z 

. RHO 

F A1 F B 1 F Cl 

F A2 

00006180 


000013 

COMMON B2 

. C2 

F Rl f R2 f R3 

F H 

00006185 


000014 

COMMON S 

. A 

F AL F WT F YBT 

F XBT 

00006190 


000015 

COMMON ZBT 

. DYT 

F DXT F D2T F SWYT 

f SWXT 

000061Q5 


000016 

COMMON SWZT 

. SWYST 

f SWXST f SWZST f SDYT 

f SDXT 

00006200 


000017 

COMMON SDZT 

. HOL 

F W F YB F XB 

f ZB 

00006205 


000018 

COMMON or 

. OX 

F 02 F SWY F SWX 

F swz 

00006210 


000019 

COMMON swys 

. SWXS 

F SWZS F SOY F SOX 

f SDZ 

00006215 


000020 

COMMON 01 

. 02 

f 03 f CLl f CL2 

F CL3 

00006220 


000021 

COMMON CM1 

. CM2 

f CM3 f CNl f CN2 

f CN3 

00006225 


000022 

COMMON A3 

. B3 

f C3 f CL1S f CL2S 

f CL3S 

00006230 


000023 

COMMON CM1S 

. CM2S 

f CM3S f CN1S f CN2S 

f CN3S 

00006235 


000024 

COMMON E 

F V 

. PY F PX F PZ 


00006240 


000025 

ER2 = R2 




00006245 

' 

000026 

EY = Y 




00006250 


000027 

EX = X 




00006255 


000028 

EZ = Z 




00006260 

. 

000029 

R2=0.0D0 




00006265 


000030 

S= ,5D0*H 




00006270 


000031 

CALL OIRC 




00006275 


000032 

y=ybr 




00006280 


000033 

X = XBR 




000062R5 


000034 

Z=ZBR 




00006290 


000035 

CALL FORI 




00006295 


000036 

WC — Wl 




00006300 


000037 

YBC = YBR 




00006305 


000038 

XBC = X3R 




00006310 


000039 

ZBC = ZBR 




00006315 


000040 

DYC = DY1 




00006320 


000041 

DXC = DX1 




00006325 


000042 

OZC = DZ1 




00006330 


000043 

RHO = -RHO 



/ 

00006335 


000044 

Rl = ER2 




00006340 


000045 

R2= R3 




00006345 


000046 

Y = EY 




00006350 


000047 

X = EX 




00006355 


000048 

Z = EZ 




00006360 

... 

000049 

CALL FOR101 




00006365 

' - - - 

000050 

WF - Wl 




00006370 


000051 

YBF = YBR 




00006375 


000052 

X8F = X8R 


\ 


00006380 


K* 000053 

ZBF = ZBR 




00006385 


000054 

OYF r DY1 




00006390 


000055 

DXF = DX1 


, 


00006395 


000056 

DZF - OZ1 


V 


00006400 




000057 

Wl = WC+WF 



_00006405_ 

000058 

YBR = (WF*YBF + WC* YBC) / Wl 



00006410 

000059 

XDR= (WF*XBF + WC*X6C ) / Wl 


J 

00006415 

000060 

ZBR= (WF*ZSF + WC*ZBC> / Wl 



00006420 

000061 

DY1= WF* ( XBF**2 +ZBF**2) +WC* ( XBC**2 +ZBC**2) + DYF + OYC -Wl* (XBR00006425 

000062 

1**2 +ZBR**2) 



00006430 

000063 

DX1 = WF * ( YRF**2 +ZBF**2) + 

WC* { YBC**2 +ZBC**2) + DXF 

+ DXC - Wl 

00006435 

000064 

1*( YBR**2 + ZBR**2 ) 



00006440 

000065 

OZ1 = WF* ( XBF**2 + YBF**2) 

+ WC*<XBC**2 +YBC**2 ) +DZF 

+DZC -Wl* 

00006445 

000066 

1 { XBR**2 +YBR**2) 



00006450 

000067 

RETURN 



00006455 

000068 

END 



00006460 



a ELT FCR110, 1*710420, 60439 


000001 

000002 

000003 

000004 

000005 

000006 


000027_ 
000028 
000029 
_000030 
00 0 0 31 
000032 
000033 
000034 
000035 
_000036_ 
00 00 37 
000038 
000039 
000040" 
000041 
000042 
000043 ' 
000044 
000045 
000046 
000047 
000048 


000049 

000050 

000051 


000052 
000053 
CO 000054 
O~0W0f55~ 
000056 


CllOFOR "" “ " 

SUBROUTINE FORllO 

C FORMULA 110 - TRAPEZOID OF REVOLUTION 


PARALLEL SIDES PARALLEL TO AXIS OF REVOLUTION 
IMPLICIT REAL*8 (A-H*0-Z> 


00006465 

00006470 

_00006475_ 

00006480 

00006485 


000007 

DIMENSION 

HOL ( 12 ) 

* W(100)* 

YB(IOO) . 

XB(100) * 

ZBUOO) * 

DY00006495 

000008 

1(100) * 

DX(100) 

* DZ(100) 

* SWY(IOO), SWX(IOO), SWZ(IOO), SWYS(IOO) 

* 00006500 

000009 

2SWXS (100) * SWZS(IOO)* SDY(IOO)* 

SDX(IOO) , 

SDZ(IOO) 


00006505 

000010 

common 

PI 






00006510 

000011 

common 

W1 

* YBR 

* XBR 

* ZBR 

* DY1 

* DX1 

00006515 

000012 

COMMON 

DZ1 

» DPY 

* DPX 

* DPZ 

* S 

* T 

00006520 

000013 

COMMON 

J 

* N 

. K 

* M 

* Y 

* X 

00006525 

000014 

COMMON 

Z 

* RHO 

* A1 

* B1 

» Cl 

. A2 

00006530 

000015 

COMMON 

B2 

* C2 

* R1 

* R2 

* R3 

* H 

00006535 

000016 

common 

B 

« A 

* AL 

* WT 

* YBT 

* XBT 

00006540 

000017 

common 

ZBT 

. DYT 

. DXT 

. DZT 

* SWYT 

* SWXT 

00006545 

000018 

COMMON 

SWZT 

* SWYST 

. SWXST 

* SWZST 

* SDYT 

* SDXT 

00006550 

000019 

COMMON 

SDZT 

. HOL 

* W 

* YB 

* XB 

* ZB 

00006555 

000020 

common 

DY 

, DX 

* DZ 

* SWY 

» SWX 

* SWZ 

00006560 

000021 

COMMON 

SWYS 

. SWXS 

* SWZS 

* SDY 

* SDX 

* SDZ 

00006565 

000022 

common 

01 

* D2 

* D3 

* CLl 

* CL2 

* CL3 

00006570 

000023 

COMMON 

CM1 

. CM2 

* CM3 

* CN1 

» CM2 

. CN3 

00006575 

000024 

COMMON 

A3 

* B3 

. C3 

. CL1S 

. CL2S 

» CL3S 

00006580 

000025 

COMMON 

CM1S 

. CM2S 

* CM3S 

. CN1S 

* CN2S 

. CN3S 

00006585 

000026 

COMMON 

E 

* V 

» PY 

* PX 

* PZ 


00006590 


STORE ORIGINAL INPUT 


EA-A1 
EB=B1 
EC=C1 
EY=Y 
EX = X 
JZ=Z_ 
ERO=rHO 
ER1=R1 
£R2=R2. 


EH=H 

determine type 

IF(H-A) 10* 40* 60 
"10 IF(H-B) 20*20 * 30 
20 L=1 

GO TO 90 


30 L=3 

GO TO 90 

40 IF(H-B) 50* 50* 30 


50 L=2 

GO TO 90 

60 IF(H-B) 50* 50* 70 


70 L=4 

C SET-UP INPUT FOR SECTION 1 

90 S=.5D0*A 


R2=0,ODO 

H=A 

CALL DIRC 

y=ybr 

X=XBR 


00006595 
00006600 
00006605 
000066 l 0_ 
00006615 
00006620 
00006625 
00006630" 
00006635 
00006640_ 
00006645 
00006650 
00006655 
00006660 
00006665 
_00006670_ 
00006675 
00006680 
00006685 
00006690 
00006695 
_00006700_ 
00006705 
00006710 
_0000671_5_ 
00006720 
00006725 
00006730 


00006735 

00006740 


Jl 




000057 



Z = ZBR 



00006745 


000058 



1 = 1 



00006750 


C00059 


98 

CALL FORI 



00006755 


000060 

C 


STORE RESULTS 



00006760 


000061 


100 

TW(I) = Wl 



00006765 


000062 



TYB ( I ) = YBR 



00006770 


000063 



TXB ( I ) = XBR 



00006775 


000064 



TZB ( 1 ) = ZBR 



00006780 


000065 



TDY ( I ) = DY1 



00006785 


000066 



TDX(I)= DX1 



00006790 


000067 



TDZ ( I ) = DZ1 



00006795 


000068 



GO TO (110*130*120*140) * I 


00006800 


000069 

C 


SET-UP INPUT FOR 

SECTION 


00006805 


000070 


llo 

Y=EY 



00006810 


000071 



X=EX 



00006815 


000072 



Z=EZ 



00006820 


000073 



S= EH-.500*B 



00006825 


000074 



Rl= ER2 



00006830 


000075 



H=B 



00006835 


000076 



CALL DIRC 



00006840 


000077 



Y = YBR 



00006845 


000G78 



X = XBR 



00006850 


000079 



Z=ZBR 



00006855 


000080 



RHO= -ERO 



00006860 


000081 



1=3 



00006865 


000082 



GO TO 98 



00006870 


000083 

C 


SET-UP INPUT FOR 

SECTION 

2 

00006875 


000084 


120 

Y=EY 



00006880 


000085 



X=EX 



00006885 


000086 



Z=EZ 



00006890 


000087 



GO TO (122*122*124*124) * L 


00006895 


000088 


122 

Al= -EA 



00006900 


000089 



Bl= -EB 



00006905 


000090 



Cl= -EC 



00006910 


000091 



H= B-EH 



00006915 


000092 



RHO- ERO 



00006920 


000093 



GO TO 126 



00006925 


000094 


124 

H= EH-B 



00006930 


000095 



RHO = -ERO 



00006935 


000096 


126 

R 1 = ER1 



00006940 


000097 



R2 = ER2 



00006945 


000098 



1=2 



00006950 


000099 


128 

CALL FOR101 



00006955 


000100 



GO TO 100 



00006960 


000101 


130 

Y=EY 



00006965 


000102 



X=EX 



/ 00006970 


000103 



Z=EZ 

' 


00006975 


000104 



Al= EA 



00006980 


000105 



Bl= EB 



00006985 


000106 



Cl= EC 



00006990 


000107 



5=A 



00006995 


000108 



CALL DIRC 



00007000 


000109 



Y=YBR 



00007005 


000110 



X=XBR 



00007010 


000111 



?=ZBR 


\ 

00007015 

l 

000112 



GO TO (132>134. 132*134) , L 


00007020 

r® 

000113 


132 

A 1= -EA 


, 

00007025 


000114 



Bl= -EB 


* 

00007030 


000115 



Cl= -EC 


\ 

00007035 


000116 



H= A-EH 



00007040 



00007045 


000117 RHO= -ERO 


00011 a 


60 TO 136 

00007050 

000119 

134 

H=EH-A 

00007055 

000120 


RHO = ERO 

00007060 

000121 

136 

Rl= ER1 

00007065 

000122 


R2 = ER2 

00007070 

000123 


1=4 

00007075 

000124 


GO TO 128 

000070R0 

000125 

C 

COMBINE SECTIONS 

00007085 

000126 

140 

Wl= TW ( 1 ) 

00007090 

000127 


YM= TW ( 1 ) * TVS ( 1 ) 

00007095 

000128 


XM= TW ( 1 ) * TXB(l) 

00007100 

000129 


ZM= TW ( 1 ) * TZB(l) 

00007105 

000130 


YM2 = YM * TYB(l) 

00007110 

000131 


XM2 = XM * TXB(l) 

00007115 

000132 


ZM2 = ZM * TZB(l) 

00007120 

000133 


YD= TOY ( 1 ) 

00007125 

000i34 


XO = TDX(l) 

00007130 

000135 


ZD = TDZ ( 1 ) 

00007135 

000136 


DO 150 1=2,4 

00007140 

000137 


W1=W1+ TW ( I ) 

00007145 

000138 


YM= YM + TW ( I ) * TYB(I) 

00007150 

000139 


XM= XM + TW ( I ) * TXB(I) 

00007155 

00G14O 


ZM= ZM + TW(I) * TZB(I) 

00007160 

000141 


YM2 = YM2 + TW(I) * TYB<I)**2 

00007165 

000142 


XM2 = XM2 + TW ( I ) * TXB ( I ) **2 

00007170 

000143 


ZM2 = ZM2 + TW ( I ) * TZB(I)**2 

00007175 

000144 


YD = YD + TDY(I) 

00007180 

000145 


XD = XD + TDX(I) 

000071R5 

000146 

150 

ZO = 2D + TDZ ( I ) 

00007190 

000147 


YBR= YM / W1 

000071Q5 

000148 


XBR= “XM / W1 

00007200 

000149 


ZBR= ZM / W1 

00007205 

000150 


DY1 = XM2 +ZM2 + YD -W1*(XBR**2 +ZBR**2> 

00007210 

000151 


DX1 = YM2 +ZM2 + XD -W1*(YBR**2 +ZBR**2) 

00007215 

000152 


DZ1 = XM2 +YM2 + ZD -W1*(YBR**2 +XBR**2> 

00007220 

000153 


RETURN 

00007225 

000154 


end 

00007230 



0 ELT FORlll»l>710420i 60441 



000001 

000002 

000003 

Cl 1 IFOR 

SUBROUTINE F0R111 
C FORMULA 111 - TRAPEZOID 

OF revolution 


00007235 

00007240 

00007245 



000004 

C 

parallel sides normal to axis of revolution 


00007250 



000005 


implicit 

REAL*8 (A-H>0-Z) 



00007255 



000006 


dimension 

HOL ( 12 ) , 

W<100)> YB ( 100 ) » XR ( 1 00 ) t 

ZBdOO) * 

DY00007260 



000007 


1(100) r DX(IOO) 

DZ( 100) » 

SWY(IOO). SWX(IOO), SWZC100)# SWYS (100) 

» 00007265 



000008 


2SWXS (100 ) t SWZS(100)» SDY ( 100 ) » SDX(100)r SDZC100) 


00007270 



000009 


common 

PI 




00007275 ■ 



ooooio 


common 

Wl 

» YBR » 

XBR » ZBR » DY1 

* DX1 

00007280 



000011 


common 

DZ1 

, DPY . 

DPX * DPZ » S 

. T 

00007285 



000012 


common 

J 

» N . 

K » M * Y 

. X 

00007290 



0000i3 


common 

Z 

* RHO * 

A1 * B1 » Cl 

* A2 

00007295 



000014 


common 

B2 

» C2 # 

R 1 > R2 * R3 

, H 

00007300 



000015 


common 

B 

» A * 

AL , WT » YBT 

, XBT 

00007305 



000016 


common 

ZBT 

» DYT 

DXT # DZT * SWYT 

» SWXT 

00007310 



000017 


common 

SWZT 

t SWYST , 

SWXST * SWZST > SDYT 

► SDXT 

00007315 



000018 


common 

SDZT 

* HOL * 

W » YR , XB 

* ZB 

00007320 



000019 


common 

DY 

» bx » 

DZ * SWY » SWX 

» SWZ 

00007325 



000020 


common 

SWYS 

r SWXS » 

SWZS * SDY t SDX 

» SDZ 

00007330 



000021 


common 

Dl 

* D2 , 

03 » CL.t » CL2 

r CL3 

00007335 



000022 


common 

CM1 

* CM2 

CM3 * CN1 t CN2 

» CN3 

00007340 



000023 


common 

A3 

» B3 

C3 * CL1S » CL2S 

> CL3S 

00007345 



000024 


common 

CM1S 

» CM2S . 

CM3S > CMIS . CN2S 

r CN3S 

00007350 



000025 


common 

E 

» V , 

PY . PX » PZ 


00007355 



000026 

C 

store original 

INPUT 



00007360 



000027 


ER1=R1 





00007365 



000023 


ER2=R2 





00007370 



000029 


eh=h 





00007375 



000030 


EA=A1 





00007380 



000031 


£B=Bi 





00007385 



000032 


EC=C1 





00007390 



000033 


ey=y 





00007395 



000034 


EX=X 





00007400 



0000.35 


EZ=Z 





00007405 



000036 


IF ( H ) 20 

> 20 » 30 



00007410 



000037 


TO R2= ER1 

+ EH 




00007415 



000038 


GO TO 40 




00007420 



000039 


30 S=A 





00007425 



000040 


CALL DIRC 

' 



00007430 



000041 


Y=YBR 





00007435 



000042 


X = XBR 





00007440 



000043 


Z=ZBR 





00007445 



000044 


Al= -EA 





00007450 



000045 


B1--EB 





00007455 



000046 


Cl=-EC 





00007460 



000047 


Rl= eri 

+ EH 




00007465 

‘ • _ 


000048 


R2= ERI 





00007470 



000049 


40 H=A 





00007475 



000050 


CALL FOR101 


\ 


00007480 



000051 


TW= Wl 





00007485 


fir 

000052 


tyb= ybr 




00007490 


GO 

000053 


TXB= X8R 




00007495 


000054 


TZB= Z3R 




00007500 



000055 


TDY= DY1 


\ 


00007505 



000056 


TDX = DX1 


\ 


00007510 




000057 

TDZ = DZ1 

00007515 

000058 

C COMPUTE INNER CONE RESULTS 

00007520 

000059 

RHO= -RHO 

00007525 

000060 

P= ERl +EH -8 

00007530 

000061 

Y= EY 

00007535 

000062 

X= EX 

00007540 

000063 

Z= EZ 

00007545 

000064 

Al= EA 

00007550 

000'065 

Bl= EB 

00007555 

000066 

Cl = EC 

00007560 

000067 

IF (P-ER2) 60 > 60 * 50 

00007565 

000068 

50 S-A 

00007570 

000069 

CALL DIRC 

00007575 

000070 

Y= YBR 

00007560 

000071 

X= XBR 

00007585 

000072 

Z= ZBR 

000075^0 

000073 

Al= -EA 

00007595 

C00074 

81= -EB 

00007600 

000075 

Cl= -EC 

onno7605 

000076 

Rl= P 

00007610 

000077 

R2= ER2 

00007615 

000078 

GO TO 70 

00007620 

000079 

60 Rl= ER2 

00007625 

000080 

R2= P 

00007630 

000001 

70 H= A 

00007635 

000082 

CALL FORIOI 

00007640 

000083 

C COMBINE FRUSTRUMS 

00007645 

00 0084 

YM= TW*TYB +W1+YBR 

00007650 

000085 

XM= TW*TXB +W1*XBR 

00007655 

000086 

ZM= TW*TZB +Wl*ZBR 

00007660 

000087 

YM2= TW*TY8**2 + W1*YBR**2 

00007665 

croowa 

XM2= Tw*fXB**2 + W1*XBR**2 

00007670 

000089 

ZM2 z TW*TZS**2 + W1*ZBR**2 

00007675 

000090 

YD= TOY +DY 1 

00007680 

000091 

XD= TDX +DX1 

00007685 

000092 

ZD= TDZ +DZ1 

00007690 

000093 

Wl= TW+W1 

00007695 

000094 

YBR= YM / W1 

00007700 

000095 

XBR= XM / W1 

00007705 

000096 

ZBR= ZM / W1 

000077.1 0 

000097 

DY1= XM2 +ZM2 +YD - Wl*CXBR**2 + ZBR**2) 

00007715 

000098 

DX1= YM2 +ZM2 +XD - Wl'*CY8R**2 + ZBR**2) 

00007720 

000099 

DZ1= XM2 +YM2 +ZD - Wl*(YBR**2 + XBR**2) 

00007725 

000100 

RETURN 

00007730 

000101 

END 

00007735 



0 ELT F0RU2, 1.710420. 60442 


: j 


000001 
000002 
_0 0 0 0 0 3_ 
000004 
000005 
000006_ 
000007 


000026 

000027 


000026 

000029 

000030 

TOO 03 r 
000032 
000033 
00 0 034 
000035 
000036 

TGO03T" 


C112F0R 

SUBROUTINE F0R112 
C FORMULA llJLrJNNER 

IMPLICIT REAL *8 (A-H.O 
DIMENSION HOL ( 12 

1(100). DX(IOO), 02(100 


QUARTER OF SOLID TORUS 

-Z) 

), W(100). YB ( 100 ) » XB(IOO). ZB 
), SWY(IOO), SWX(IOO), SWZ(IOO) 


2SWXS ( 100 ) . SWZS(IOO), SDY(IOO). SDX(IOO), SDZ(IOO) 


00007740 

00007745 

00007750 

00007755 
(100). DY00007760 

. SWYS(IOO). 00007765 
00007770 


000008 

000009 

common 

COMMON 

PI 

Wl 

. YBR 

. XBR 

. ZRR 

9 

DYl 

. DX1 

00007775 

00007780 

000010 

COMMON 

DZ1 

. DPY 

. OPX 

. DPZ 

9 

S 

. T 

00007785 

000011 

COMMON 

J 

. N 

. K 

t M 

9 

Y 

. X 

00007790 

000012 

COMMON 

Z 

. RHO 

. A1 

» 81 

9 

Cl 

. A2 

00007795 

000013 

COMMON 

B2 

. C2 

. R1 

. R2 

9 

R3 

. H 

00007800 

000014 

COMMON 

B 

. A 

. AL 

» WT 

9 

YBT 

. XBT 

00007805 

000015 

COMMON 

ZBT 

. dyt 

. OXT 

» D_ZX_. 

9 

SWYT 

. SWXT 

00007810 

000016 

COMMON 

SWZT 

. SWYST 

. SWXST 

» SWZST 

9 

SDYT 

. SDXT 

00007815 

000017 

COMMON 

SDZT 

. HOL 

, w 

. YB 

9 

XB 

» ZB 

00007820 

000018 

COMMON 

DY 

. DX 

. oz 

. SHY 

f 

SWX 

. SWZ 

00007825 . ... 

000019 

COMMON 

SWYS 

. SWXS 

. SWZS 

. SDY 

9 

SDX 

. SDZ 

00007830 

000020 

COMMON 

D1 

. 02 

. D3 

.» CLl 

9 

CL2 

. CL3 

00007835 

000021 

COMMON 

CMl 

. CM2 

, CM3 

» CMl 

9 

CM2 

. CN3 

00007840 

000022 

COMMON 

A3 

. 83 

, C3 

. CL1S 

9 

CL2S 

. CL3S 

00007845 

000023 

COMMON 

CM1S 

. CM2S 

. CM3S 

. CM1S 

9 

CN2S 

. CN3S 

00007850 

000024 

COMMON 

E 

. V 

, PY 

. PX 

9 

PZ 


00007855 

000025 

nn=n 








00007860 


N-112 

CYLINDER 


S= . 500*R2 

CALL DIRC 

Y=YBR 

X=XBR 

Z=ZBR 

H=R2 


R2=R1-H 
CALL FORI 
WC = W1 

yC=ybr 


00007R65 

_00007870_ 

00067875 

00007860 

00007885 

00007890 

0Q007895 

_00007900_ 

00007905 

00007910 

00007915_ 

00007920 


000038 
000039 

000046 

000041 

OCLO 042 

000043 
000044 
000045 
000046 
000047 
000048 
000049 
. 000050 
p 000051 
000052 
WTl 000053 
000054 
000655 
000056 


xc=xbr 

zc=zbr. 

CY=DY1 

CX=DX1 

CZ=DZ 1 

C FILLET 

RHO = -RHO 

S =.50 0 *H 

CALL 'DIRC 
Y=YBR 

X = XBR 

Z-ZBR 
Al= -A1 
B 1 = -B1 
Cl= -Cl 
Rl=R2 

R2=H 

CALL FOR102 
Wr = Wl 


00007925 

00007930_ 

00007935 

00007940 

00007945 

00007950' 

00007955 

00007960 

00007965 

00007970 

00007975 

00007980 

00007985 

00007990 

00007995 

00008000 

00008005 

00008010 

00008015 



000057 

YF= YBR 

00008020 

000058 

XF = XBR 

00008025 

000059 

2F = ZBR 

00008030 

000060 

FY= DY1 

00008035 

000061 

FX= 0X1 

00008040 

000062 

FZ= DZ1 

00008045 

000063 

C RESTORE INPUT 

00008050 

000064- 

RHO= -RHO 

00008055 

000065 

Rl= Rl+H 

00008060 

000066 

S=H 

00008065 

000067 

CALL DIRC 

00008070 

000068 

Y = YBR 

00008075 

000069 

X = XBR 

00008080 

000070 

Z=ZBR 

00008085 

000071 

Al= -A1 

00008090 

000072 

Bl=-Bl 

00008095 

000073 

Cl=-Cl 

00008100 

000074 

N=NN 

00008105 

000075 

C COMBINE CYLINDER AMD FILLET 

00008110 

000076 

Wl= WC+WF 

00008115 

000077 

YM= WC*YC + WF*YF 

00008120 

000078 

XM= WC*XC + WF*XF 

00008125 

000079 

ZM= WC*ZC + WF*ZF 

00008130 

000030 

YM2 = WC*YC**2 +WF*YF**2 

00008135 

000081 

XM2= WC*XC**2 +WF*XF**2 

00008140 

000082 

ZM2= WC*ZC**2 +WF*ZF**2 

0000B145 

000033 

YD= CY+FY 

, 00008150 

000034 

XD- CX+FX 

00008155 

000085 

ZO= CZ+FZ 

00008160 

000086 

Y6R= YM / W1 

00008165 

000037 

XBR= XM / W1 

00008170 

000038 

ZBR= ZM /wi 

00008175 

000089 

0Y1= XM2 +ZM2 +YO -Wl*(XBR**2 + ZBR**2> 

00008180 

000090 

0X1= YM2+ZM2 +XO -Wl* <YBR**2 +ZBR**2> 

00008185 

' 000091 

DZr= XW2+Y f-T2~+~ZD -W1*0YBR**2 +XBR**TD 

00008190 

000092 

return 

00008195 

000093 

END 

00008200 



(2 ELT F0R113. 1.710420. 60444 


000001 
000002 
000003 
000004 
000005 
_p 0 0 0 0 6_ 
000007 
000008 
_0 0 0 0 0 9 _ 
000010 
000011 
_0 0 0 0 1 2 _ 
000013 
000014 
000015_ 
000016 
000017 
000018 
000019* 
000020 
_0 0 0 0 2 1 _ 
000022 
000023 
_000024_ 
000025 
000026 
_00002_7_ 
000028 
000029 
000030_ 
"000031 
000032 
000 033 
000034 
000035 
00 0 0 36_ 
*000037 
000038 
0000 39 
000040 
000041 
000 042 
*000043 
000044 
000045 
000046 
000047 
0000 48 
000049 
000050 


000 054 

"000055 

000056 


C113F0R 

SUBROUTINE FORI 13 

_C _____ FORMULA 1 13 - INNER QUARTER ._ TOROIDAL JjHELL _ 

IMPLICIT' REAL*8 (A-H.O-Z) 

DIMENSION HOL (12 ) » W ( 1 00 ) » YB(100), XB(100) 

__ 1(100). D X ( 10 0 ) > DZ(IOO). SWY(IOO). SWXdOO). SWZ( 

2SWXSU00). SWZSdOG). SDY(IOO) » SDX(IOO) » SDZ(100 
COMMON PI 

COMMON Wl . YBR . XB R . ZBR . D Y1 

COMMON DZ1 » DPY . DPX . DPZ . S 

COMMON J . N . K * M » Y 

COMMON Z > RH O » A 1 r_B 1 »_C1 

COMMON B2 » C2 . R1 » R2 » R3 

COMMON B .A . AL » WT » YBT 

COMMO N Z EST . D YT . DXT ►_ DZT » S WYT 

COMMON SWZT . SWYST . SWXST . SWZST » SDYT 

COMMON SOZT . HOL . W . YB » XB 

DZ 

swzs 

D3 
CM 3 
C3 

CM3S 
PY 


COMMON Wl . YBR 

COMMON DZ1 » DPY 

COMMON J . N 

COMMON Z . RHO 

COMMON B2 » C2 

COMMON D . A 

COMMO N Z BT .__DYT 

COMMON SWZT . SWYST 

COMMON SOZT . HOL 

C OMMON D Y . D X 

COMMON SWYS . SWXS 

COMMON 01 . D2 

COMMO N CM1 . CM2 

COMMON A3 » B3 

COMMON CM1S . CM2S 

COMM ON E . V 

NN=N 

N=113 

E R 2= R2 

IF ( NN-115 ) 112.106.112 
112 CALL F0R112 

GO TO 1 20 

106 CALL FORI 06 
120 WC=W1 

YC = YBR 

XC=XBR 

ZC=ZBR 

CY=DY1 

CX=~DX1 

CZ=DZ1 

R2= R3 

RHO= -RHO 

I F ( NN-1 1 5 ) 212.206.212 

212 C ALL FORI 12 

GO TO 220 
206 CALL FOR106 

220 WF-W1 

YF= YBR 
XF= XBR 

ZF^_ZBR 

FY= DY1 
FX= DX1 

FZ - PZ1 

RESTORE INPUT 
R2=ER2 

RHO= -RHO 

N=NN 

COMBINE PARTS 


ZBR 

DPZ 

M 

B1 

R2 

WT 

DZT 

SWZST 

YB 

SWY 

SDY 

CL1 

CN1 

CL IS 
CN1S 
PX 


00008205 

00008210 

00008215_ 

00008220 

. ZB ( 100) . DY00008225 

100 ) . SWYS(IOO) » 00008230 _ 

) "" 00008235 

00008240 

» DX1 00008245_ 

. T 00008250 

► X 00008255 

. A2 00008260_ 

. H 00008265 

. XBT 00008270 

. SWXT 00 008275_ 

. SDXT 00008280 

. ZB 00008285 

. SWZ 00008290_ 

. SDZ 00008295 

. CL3 00008300 

. C N3 00008305_ 

. CL3S 00008310 

. CN3S 00008315 

00008320 

00008325 

00008330 

00008335_ 

00008340 

00008345 

00008350_ 

00008355 

00008360 

00008365_ 

00008370 

00008375 

00 008380_ 

00008385 

00008390 

0 00 0 8395_ 

00008400 

00008405 

0000841 0_ 

; 00008415 

00008420 

00008425_ 

00008430 

00008435 

1 00008440_ 

00008445 

00008450 

00008455_ 

00008460 

00008465 

000084 70 

00008475 

00008480 



Wl=WC+WF 

YM=WC*YC + WF*YF 
XM=WC*XC + WF*XF 

ZM=WC*ZC + WF*ZF 

YM2='WC* YC**2 + WF* YF**2 
XM2= VIC* XC**2 + W F* XF**2 

ZM2= VIC* ZC**2 + WF* Z F**2 

YD= CY+FY 
XD= CX+FX 
Z0= CZ+F Z 
YBR= YM /W1 
XBR= XM / W1 

2BR= Z M / W 1 

DY1 = XM2 +ZM2 +YD -Wl*< XBR**2 + ZBR**2> 
0X1= YM2 +ZM2 +XD -Wl*( YBR**2 + ZBR**2> 
DZ1= Y M2 + XM2 +ZD -Wl*( Y BR*» 2 + XB R**2) 
"RETURN 
END 



00008485 

00008490 

00008495 

00008500 

00008505 

00008510 

00008515 

00008520 

00008525 

000085,80 

00008585 

00008540 

00008545 

00008550 

00008555 

00008580 

00008565 

00008570 



a ELT F0RU4, 1,710420, 60446 



000001 

C114F0R 







00008575 


000002 

SUBROUTINE F0R114 







00008580 


000003 

C FORMULA 114 - HOLLOW 

SPHERICAL 

SEGMENT 





00008585 


000004 

IMPLICIT REAL*8 (A-H,0-Z) 






00008590 


000005 

DIMENSION HOL ( 12 ) , 

W(100) * 

YB(100) * 

X8(100) , 

ZB ( 100) p 

DY00008595 


000006 

1(100), DX ( 100 ) t DZ(IOO), 

SWY(IOO) 

. SWX(IOO) 

, SWZ(IOO) 

' SWYS(IOO) 

* 00008600 


000007 

2SWXS ( 100 ) , SWZSQOO). SDY(IOO)* SDXQOOJp 

SDZ(IOO) 



00008605 


000008 

COMMON PI 







000086t 0 


000009 

COMMON Wl > YBR 

, XBR 

» ZBR 

f 

DY1 

9 

DX1 

00008615 


000010 

COMMON DZ1 , DPY 

, DPX 

» DPZ 

9 

S 

9 

T 

00008620 


.000011 

COMMON J , N 

, K 

* M 

t 

Y 

9 

X 

00008625 


000012 

COMMON Z , RHO 

, A1 

► B 1 

f 

Cl 

9 

A2 

00008630 


000013 

COMMON 82 , C2 

, R 1 

* R2 

9 

R3 

9 

H 

00008635 


000014 

COMMON B , A 

, AL 

# WT 

9 

YBT 

9 

XBT 

00008640 


000015 

COMMON ZBT , DYT 

, DXT 

, DZT 

9 

SWYT 


SWXT 

00008645 


000016 

COMMON SWZT , SWYST 

, SWXST 

» SWZST 

t 

SDYT 

9 

SDXT 

00008650 


000017 

COMMON SDZT , HOL 

, w 

» YB 

9 

XB 

9 

ZB 

00008655 


OCC018 

COMMON DY , DX 

, DZ 

» ..SWY. 

9 

SWX 


SWZ 

00008660 


000019 

COMMON SWYS » SWXS 

* SWZS 

# SDY 

9 

SDX 

9 

SDZ 

00008665 


000020 

COMMON D1 , D2 

, 03 

. CL1 

9 

CL2 

9 

CL3 

00008670 


000021 

COMMON CMl , CM2 

, CM3 

» CN1 

9 

CN2 


CN3 

00008675 


000022 

COMMON A3 , B3 

, C3 

» CL1S 

9 

CL2S 

9 

CL3S 

00008680 


000023 

COMMON CMlS , CM2S 

, CM3S 

, CN1S 

9 

CN2S 

9 

CN3S 

00008685 


000024 

COMMON E » V 

, PY 

» PX 

9 

PZ 



00008690 


000025 

NN=N 







00008695 


000026 

N=114 







00008700 


000027 

e=R3 







00008705 


000028 

ERl=Rl 







00008710 


000029 

CALL FOR104 







00008715 


000030 

WC=W1 







00008720 


000031 

YC= YBR 







00008725 


000032 

xc=xbr 







00008730 


000033 

ZC= ZBR 







00008735 


000034 

CY=DY1 







00003740 


000035 

CX=DX1 







00008745 


000036 

CZ-DZ1 







00008750 


000037 

Rl=R2 







00008755 


000038 

RHO = -RHO 







00008760 


000039 

CALL FOR104 







00008765 


000040 

WF-W1 







00008770 


000041 

YF=YBR 







00008775 


000042 

XF=XDR 







00008780 


000043 

zf=zbr 







00008785 


000044 

FY=DY1 







00008790 


000045 

FX=DX1 







00008795 


000046 

FZ=DZ1 







00008800 


000047 

C RESTORE INPUT 







00008805 


000048 

Rl= ER1 







00008810 


000049 

RHO = -RHO 







00008815 


000050 

N=NN 







00008820 


000051 

C COMBINE PARTS 

\ 






00008825 


000052 

Wl-WC+WF 







00008830 

CO 

000053 

YM= WC*YC +WF*YF 







00008835 

CD 000054 

XM= WC*XC +WF*XF 







00008840 


000055 

ZM= WC*ZC +WF*ZF 







00008845 


000056 

YM2r WC*YC**2 +WF*YF**2 


\ 





00008850 



XM2 = WC*XC**2 +WF*XF**2 

ZM2= WC*ZC**2 +WF*ZF**2 
YD= CY+FY 

_X D =_CX+ F X 

7.D- CZ+FZ 
YBR= YM / W1 

XBR = XM / W 1 

ZBR= ZM / W1 

0Y1= XM2 + ZM2 +YD -Wl*( X8R**2 + ZBP**2> 

_D X X- YM 2 t ZM2 +X0 -W ll*{ YB R ** 2 + Z B R**2 j 

DZ1 =YM2 + XM2 +ZD ~Wl*( YBR**2 + XBR**2) 

RETURN 

END 




i 


_O.O_Q0885.Sl 

00008860 

00006865 

00008870_ 

00008875 

00008880 

00008885 

00008890 

00008895 

00008900_ 

00008905 

00008910 


LQOJMIJ 



i 



Q ELT F0R115»1’710420> 60447 


000001 

000002 

000003 

C115F0R 

SUBROUTINE F0R115 
C FORMULA 115 - OUTER 

QUARTER * 

TOROIDAL 

shell 


00003920 

00008925 

00003930 



000004 

IMPLICIT REAL*8 

( A-H»0- 

Z) 




00008935 



000005 

dimension 

HOL ( 12) 

» W(100) > 

YB ( 1O0 ) * 

XBdOO) t 

ZB ( 100) t 

DY00008940 



000006 

1(100) r 

DX ( 10.0.) # 

DZ(IOO) 

* SWY ( 100) . SWX(IOO) * SWZ ( 100) * SWYStlOO ) 

t 00008945 



000007 

2SWXS ( 100 ) t SWZSUOO)* SDYUOO)* 

SDX(IOO) » 

SDZ(IOO) 


00008950 



000003 

COMMON 

PI 






00008955 



000009 

COMMON 

wl 

* YBR 

> XBR 

» ZBR 

* DY1 

» DX1 

00008960 



000010 

COMMON 

DZ1 

» DPY 

# DPX 

. DPZ 

» S 

* T 

00008965 



000011 

COMMON 

J 

, N 

, K 

• M 

» Y 

# X 

00008970 

. 


000012 

COMMON 

Z 

, RHO 

t A1 

* B1 

# Cl 

* A2 

00008975 



000013 

COMMON 

B2 

, C2 

. R1 

» R2 

* R3 

, H 

00008980 



000014 

COMMON 

B 

, A 

» AL 

> WT 

» YBT 

. XBT 

00008985 



000015 

COMMON 

ZBT 

r DYT 

, DXT 

» DZT 

» SWYT 

» SWXT 

00008990 



000016 

COMMON 

SWZT 

. swyst 

» SWXST 

# SWZST 

# SOYT 

* SDXT 

00008995 



000017. 

COMMON 

SOZT 

, HOL- 

f W 

* yb 

t XB 

* ZB 

00009000 



000018 

COMMON 

DY 

r DX 

. DZ 

, SWY 

» swx 

r SWZ 

00009005 



000019 

COMMON 

SWYS 

r SWXS 

» SWZS 

V SOY 

* sox 

» SDZ 

00009010 



000020 

common 

Dl 

t 02 

r D3 

* CL1 

* CL2 

» CL3 

00009015 



000021 

COMMON 

CM1 

* CM2 

» CM3 

» CN1 

» CN2 

» CN3 

00009020 



000022 

COMMON 

A3 

. B3 

» C3 

# CHS 

* CL2S 

» CL3S 

00009025 



000023 

common 

CM1S 

. CM2S 

# CM3S 

» CN1S 

» CN2S 

» CN3S 

00009030 



000024 

COMMON 

E 

, V 

r PY 

. PX 

f PZ 


00009035 



000025 

NN=N 







00009040 



000026 

N=115 







00009045 



000027 

CALL FORI 13 






00009050 



000023 

N=NN 







00009055 



000029 

RETURN 







00009060 



000030 

END 







00009065 





a ELT F0RU6, 1*710420, 60448 


000001 

000002 

000003 

C116F0R 

SUBROUTINE F0R116 

C FORMULA 116 - AXIAL SEGMENT OF SOLID TORUS 


00009070 

00009075 

00009080 

000004 

000005 

000006 

IMPLICIT REAL*8 (A-H*0-Z> 00009085 

DIMENSION HOL ( 12 ) * W(100)* YBQOO)* XB ( 100 ) * ZB ( 100 ) * DY00009090 

1(100)* DX ( 100 ) * DZ(IOO), SWY(IOO)* SwX(lOO)* SW2(100)* SWYS(IOO). 00006095 

000007 

000008 

000009 

2SWXS ( 100 ) * SW2S ( 100 ) * SDY(IOO)* SOX(IOO)* 
COMMON PI 

COMMON Wl * YBR * XBR * ZBR 

SDZ(IOO) 
* DY 1 

* DX1 

00009100 

00009105 

00009110 

000010 

COMMON 

DZ1 , DPY 

* DPX 

• DPZ 

* S 

* T 

00009115 

000011 

COMMON 

J * N 

* K 

t M 

» Y 

* X 

00009120 

000012 

COMMON 

Z . RHO 

* A1 

* B 1 

* Cl 

* A 2 

00009125 

000013 

COMMON 

B2 * C2 

* R 1 

* R2 

* R3 

* H 

00009130 

000014 

COMMON 

B * A 

* AL 

* WT 

* YBT 

* XBT 

00009135 

000015 

COMMON 

ZBT , DYT 

* DXT 

» DZT 

* SWYT 

» SWXT 

00009140 

000016 

COMMON 

SWZT * SWYST 

* SWXST 

* SWZST 

* SDYT 

* SDXT 

00009145 

000017 

COMMON 

SD2T * HOL 

* W 

* yb 

* XB 

* ZB 

00009150 

000018 

COMMON 

DY , DX 

* DZ 

» SWY 

* SWX 

* swz 

00009155 

000019 

COMMON 

SWYS * SWXS 

* SWZS 

* SDY 

* SDX 

* SD2 

00009160 

000020 

COMMON 

Dl * D2 

* D3 

* CLl 

* CL2 

* CL3 

00009165 

000021 

COMMON 

CM1 * CM2 

. CM3 

* CNl 

* CN2 

* CN3 

00009170 

000022 

COMMON 

A3 * B3 

* C3 

* CL1S 

* CL2S 

* CL3S 

00009175 

000023 

COMMON 

CM1S . CM2S 

. CM3S 

* CN1S 

* CN2S 

* CN3S 

00009180 

000024 

COMMON 

E . V 

* PY 

* PX 

* PZ 


00009185 

000025 

nn=n 






00009190 

000026 

N=116 






00009195 

000027 

H=H-R2 






00009200 

000028 

AL=DATAN2CDS0RT<R2**2-H**2) *DABS(H) ) 



00009205 

000029 

E1=.500*PI*RHO*R1*R2**2 





00009210 

000030 

E2= PI- 

.5DO*(2.0DO*AL-DSIN(2.0DO*AL) ) 



00009215 

000031 

E3= 2.0D0*(DSIN(AL) )**3 





00009220 

000032 

IF ( H ) 20*30*30 





00009225 

000033 

20 E2= PI- 

E2 





00009230 

000034 

30 Wl— 4* 0D0*E1*E2 





00009235 

000035 

S= R2*E3 / ( 3 . 0D0*E2) 





00009240 

000036 

CALL DIRC 





00009245 

000037 

DPY= E1*(E2 * ( 4 . ODO*Rl**2 +3 . 0D0*R2**2 ) +H*R2*E3> 


00009250 

000038 

DPX= •5D0*E1*(E2*(4.0D0*R1**2 +5 

0D0*R2**2 ) -H*R2*E3) -W1*S**2 00009255 

000039 

DPZ-DPX 






00009260 

000040 

CALL DELTA 





00009265 

000041 

N=NN 






00009270 

000042 

H=H+R2 






00009275 

000043 

RETURN 





. 

00009280 

000044 

END 






00009285 


\ 


JO 



0 ELT F0R117, 1f710420f 60450 



000001 

C117FOR 







00009290 


000002 

SUBROUTINE F0R117 





00009295 


000003 

C FORMULA 117 

- AXIAL SEGMENT OF 

HOLLOW TORUS 


00009300 


000004 

IMPLICIT REAL*8 <A-HfO-Z) 




00009305 


000005 

DIMENSION 

HOL ( 1 2 ) » 

W(100) * 

YB(100) » 

XB(100) f 

ZB ( 100 ) f 

DY00009310 


000006 

1 (100) f 

DX(IOO) 

f DZ(IOO ) t 

SWY(IOO) 

» SWXdOO), SWZ(IOO). SWYS(IOO) 

f 00009315 


000007 

2SWXS ( 100 ) t SWZS(100)f SDY(IOO)# SDX(100)r 

SDZdOO) 


00009320 


000008 

COMMON 

PI 


1 




00009325 


000009 

COMMON 

Wl 

, YBR 

» XBR 

. ZBR 

f DY 1 

f DX1 

00009330 


000010 

COMMON 

DZ1 

» DPY 

» DPX 

* DPZ 

F S 

F T 

00009335 


000011 

COMMON 

J 

» N 

> K 

t M 

F Y 

F X 

00009340 


000012 

COMMON 

Z 

» RHO 

f A 1 

. B1 

F Cl 

F A2 

00009345 


000013 

COMMON 

B2 

» C2 

• R1 

f R2 

F R3 

F H 

00009350 


000014 

COMMON 

B 

f A 

f AL 

f WT 

f YBT 

f XBT 

00009355 


000015 

COMMON 

ZBT 

> DYT 

> DXT 

f DZT 

F SWYT 

f SWXT 

00009360 


000016 

common 

SWZT 

t SWYST 

, SWXST 

f SWZST 

f SDYT 

f SDXT 

00009365 


000017 

common 

SDZT 

» HOL 

* W 

f YB 

f XB 

F ZB 

00009370 


000018 

COMMON 

DY 

» DX 

» DZ 

f SWY 

f SWX 

f SWZ 

00009375 


000019 

COMMON 

SWYS 

» S'.VXS 

* swzs 

f SOY 

f SDX 

F SDZ 

00009380 


000020 

COMMON 

D1 

t 02 

* D3 

F CL1 

f CL2 

f CL3 

00009385 


000021 

COMMON 

CM1 

. CM2 

» CM3 

f CM1 

f CN2 

f CN3 

00009390 


000022 

000023 

common 

common 

A3 

CM1S 

# B3 
» CM2S 

, C3 
. CM3S 

f CL1S 
F CN1S 

f CL2S 
f CN2S 

f CL3S 
f CN3S 

00009395 

00009400 


000024 

common 

E 

f V 

» PY 

F PX 

F PZ 


00009405 


000025 

nn=n 







00009410 


000026 

N=117 







00009415 


000027 

eh=h 







00009420 


000028 

000029 

ER2=R2 
CALL FORI 16 






00009425 

00009430 


000030 

WC = wl 







00009435 


000031 

YC = YBR 







00009440 


000032 

XC= XBR 







00009445 


000033 

ZC= ZBR 







00009450 


000034 

CY= DY1 







00009455 


000035 

CX= DX1 







00009460 


000036 

CZ= DZ1 







00009465 


000037 

H= H-R2+R3 






00009470 


000038 

R2=R3 







00009475 


000039 

RHO- -RHO 






00009480 


000040 

CALL FORI 16 






00009485 


000041 

WF=W1 







00009490 


000042 

YF= YBR 







00009495 


00C043 

XF= XBR 






i 

00009500 


000044 

ZF= ZBR 







00009505 


000045 

FY=DY1 







00009510 


000046 

000047 

FX=DX1 

FZ=DZ1 







00009515 

00009520 


000048 

Wl = WC 

+ WF 






00009525 


000049 

YM= WC*YC +WF*YF 





00009530 


000050 

XM= WC*XC +WF*XF 





00009535 


000051 

ZM= WC*ZC +WF*ZF 





00009540 


000052 

YM2= WC*YC**2 

+ WF*YF**2 

\ 




00009545 

000053 
JTt 000054 

XM2= WC*XC**2 
ZM2= WC*ZC**2 

+ WF*XF**2 
+ WF*ZF**2 





00009550 

00009555 

w 000055 

YD= CY+FY 






00009560 


000056 

XD= CX+FX 



\ 

_l 



00009565 



000 057 20= CZ+FZ ; 0 0009570 


000058 

000059 

000060 

YBR= YM / Ml 
XBR= XM / Ml 
ZBR= ZM / Ml 




00009575 

00009580 

00009585 

000061 

000062 

000063 

DY1= XH2+ZM2 
DX1= YM2+ZM2 
DZ1= YM2+XM2 

+YD -Wl*( 
+XD — Wl* ( 
+ZD -Wl* ( 

XBR**2 

YBR**2 

YBR**2 

+ZBR**2) 

+ZBR**2) 

+XBR**2> 

00009590 

00009595 

00009600 

000064 

N=NN 




00009605 

000065 

RH0=-RH0 




00009610 

000066 

H=EH 




00009615 

000067 

R2=ER2 




00009620 

000068 

RETURN 




00009625 

000069 

END 




00009630 



a ELT FOR118»1»710420. 60452 


000001 

C118F0R 







00009635 

000002 

SUBROUTINE F0R118 





00009640 

000003 

C FORMULA 118 

- RADIAL 

SEGMENT OF SOLID 

TORUS 


00009645 

000004 

IMPLICIT R£AL*8 (A-H.O- 

Z) 




00009650 

000005 

dimension 

HOL ( 12 ) 

t W(100). 

YB(IOO) , 

XB( 100) r 

ZB(IOO) t 

DY00009655 

000006 

1(100) * 

DX(IOO) 

» DZ(IOO) 

» SWY(IOO) 

» SWX(IOO), SWZ(IOO). SWYS(IOO) 

t 00009660 

000007 

2SWXS ( 100 ) t SWZS(IOO), SDY ( 100 ) > SDX<100>» 

SDZ( 100) 


00009665 

000008 

common 

PI 






00009670 

000009 

COMMON 

Wl 

. YBR 

, XBR 

» ZRR 

. DY 1 

t DX1 

00009675 

000010 

COMMON 

DZ1 

» DPY 

» DPX 

» DPZ 

» S 

. T 

000096R0 

000011 

COMMON 

J 

» N 

. K 

» M 

# Y 

. X 

00009685 

000012 

COMMON 

Z 

t RHO 

. A 1 

» B 1 

» Cl 

t A2 

00009690 

000013 

COMMON 

B2 

» C2 

, R1 

# R2 

> R3 

, H 

00009695 

000014 

COMMON 

B 

, A 

. AL 

f WT 

» YBT 

. XBT 

00009700 

000015 

COMMON 

ZBT 

. DYT 

» DXT 

. DZT 

. SWYT 

. SWXT 

00009705 

000016 

COMMON 

SV.'ZT 

» SWYST 

t SWXST 

t SWZST 

» SDYT 

. SDXT 

000097)0 

000017 

COMMON 

SDZT 

» HOL 

r W 

t YB 

» XB 

r ZB 

00009715 

000018 

COMMON 

DY 

r DX 

» DZ 

> SWY 

t swx 

, SWZ 

00009720 

000019 

COMMON 

SWYS 

» SWXS 

. SWZS 

• SDY 

t SDX 

. SDZ 

00009725 

000020 

COMMON 

D1 

. D2 

» D3 

. CLl 

» CL2 

. CL3 

00009730 

000021 

common 

CM1 

. CM2 

. CM3 

» CN1 

> CN2 

, CN3 

00009735 

000022 

common 

A3 

. B3 

* C3 

» CL1S 

► CL2S 

» CL3S 

00009740 

000023 

COMMON 

CM1S 

» CM2S 

f CM3S 

. Ct-ilS 

» CN2S 

» CN3S 

00009745 

000024 

common 

E 

. V 

. PY 

* PX 

* PZ 


00009750 

000025 

NN=N 







00009755 

000026 

N=118 







00009760 

000027 

EH=H 







00009765 

000028 

H=H-R2 







00009770 

000029 

T= 2.0D0*DSQRT(R2**2 -H**2) 




00009775 

000030 

AL=DATAN2( .5D0*T»DABS(H) ) 




00009780 

000031 

El=.5D0+PI*RH0*Rl*R2**2 





000097R5 

000032 

E2= PI- 

. 5D0* ( 2 

. 0D0*AL - 

DSIN ( 2 . 0D0*AL ) ) 



00009790 

000033 

E3= 2.0DO/R1*R2/15.0DO*(OSIN(AL) )**3 



00009795 

000034 

IF (H) 20 r 30 » 30 






00009800 

000035 

20 E2= PI- 

E2 






00009805 

000036 

30 Wl = ,8*D0E1*< 

5.0D0+E2 

+E3 ) 




00009810 

000037 

S=0.0D0 







00009815 

000038 

CALL DIRC 






00009820 

000039 

DPY- El*( E2*(4.0D0*Rl**2 +3 . 0D0*R2**2 ) + 

E3*(60.0DO*Rl**2 -45.000*00009825 

000040 

1R1*H +12.000* 

H**2 +8 • 0D0*R2**2) ) 




00009830 

000041 

DPX= . 5D0+DPY 

+E1*< E2*R2**2 +E3*<T**2 +5 

. 0D0*R1*H) ) 

00009835 

000042 

DPZ=OPX 







00009840 

000043 

CALL DELTA 






00009845 

000044 

N=NN 







00009850 

000045 

H=EH 







00009855 

000046 

RETURN 







00009860 

000047 

end 







00009865 



a ELT F0RU9, 1.710420. 60453 


000001 

C119FOR 





00009870 

000002 

SUBROUTINE F0R119 




00009875 

000003 

C FORMULA 119 - 

RADIAL 

SEGMENT OF HOLLOW 

TORUS 


00009880 

000004 

IMPLICIT REAL*8 

(A-H.O- 

Z) 



00009885 

000005 

DIMENSION 

HOL (12) 

. W(100). YB(IOO), 

XBdOO) . 

ZB < 100 ) . 

DY00009890 

000006 

1(100). DX(100). 

DZ(100) 

. SWY(IOO). SWX(IOO), SWZ ( 100 ) . SWYS(IOO) 

. 00009895 

000007 

2SWXS ( 100 ) . SWZS(IOO). SDY(IOO). SDX(IOO). 

SDZ(IOO) 


00009900 

000008 

COMMON PI 





00009905 

000009 

COMMON W1 

. YBR 

. X8R . ZBR 

. DY1 

. DX1 

00009910 

000010 

COMMON DZ1 

. DPY 

. DPX . DPZ 

» S 

. T 

00009915 

000011 

COMMON J 

. N 

. K » M 

. Y 

. X 

00009920 

000012 

COMMON Z 

» RHO 

. A1 . B1 

. Cl 

». A2 

00009925 

000013 

COMMON B2 

. C2 

. R1 . R2 

» R3 

» H 

00009930 

000014 

. COMMON B 

. A 

. AL . WT 

. YBT 

. XBT 

00009935 

0U0015 

COMMON ZBT 

. OYT 

. DXT . DZT 

. SWYT 

. SWXT 

00009940 

000016 

COMMON SWZT 

. SWYST 

> SWXST . SWZST 

# SDYT 

. SDXT 

00009945 

000017 

COMMON SDZT 

. HOL 

» W . YB 

. XB 

. ZB 

00009950 

000018 

COMMON DY 

. DX 

. DZ . SWY 

. SWX 

. SWZ 

00009955 

6 0 0 0 1 9 

COMMON SWYS 

» SWXS 

. SWZS » SDY 

. SDX 

. SDZ 

00009960 

000020 

COMMON D1 

f D2 

. D3 . CL1 

t CL2 

» CL3 

00009965 

000021 

COMMON CM1 

r CM2 

. CM3 . CN1 

» CN2 

. CN3 

00009970 

000022 

COMMON A3 

. B3 

» C3 . CL1S 

. CL2S 

. CL3S 

00009975 

000023 

COMMON CM1S 

. CM2S 

. CM3S . CN1S 

. CN2S 

. CN3S 

00009980 

000024 

COMMON E 

. V 

. PY . PX 

. PZ 


00009985 

000025 

NN=N 





00009990 

000026 

N=119 





00009995 

000027 

EH=H 





00010000 

000028 

ER2=R2 





00010005 

000029 

CALL F0R118 





00010010 

000030 

WC= Wl 





00010015 

000031“ 

C Y- D Y 1 





00010020 

000032 

CX= DX1 





00010025 

000033 

CZ= DZ1 





00010030 

000034 

H= H-R2+R3 





00010035 

000035 

R2 = R3 





00010040 

000036 

RH0= -RHO 





00010045 

000037 

CALL FOR118 





00010050 

000038 

Wl=Wl +WC 





00010055 

000039 

DY1= DY1+CY 





00010060 

000040 

DX1= DX1+CX 





00010065 

000041 

DZ1= DZ1+CZ 





00010070 

000042 

N=NN 





00010075 

000043 

RHO =-RHO 





00010080 

000044 

H= EH 





00010085 

000045 

R2= ER2 





000100°0 

000046 

RETURN 





00010095 

000047 

end 





00010100 



a ELT FOR120,l»710420, 60455 


000001 

C120F0R 








00010105 



000002 

SUBROUTINE F0R120 








00010110 



000003 

C FORMULA 120 - RADIAL SECTOR 

OF SOLID 

TORUS 


10-23-62 

00010115 



000004 

IMPLICIT REAL*8 ( A-H.O- 

Z) 


* 





00010120 



000005 

DIMENSION HOL ( 12 ) 

» W(100)» 

YB(IOO) » 

XB(100) * 

ZB ( 100 ) r DY00010125 



000006 

1(100) » DX ( 100 ) t DZ ( 100 ) 

f SWY(IOO) 

9 

SWX(IOO) 

, SWZ(IOO) 

, SWYS (100) * 

00010130 



000007 

2SWXS ( 100 ) t SWZSUOO), SDY(100)» SDX<100>» 

SDZ(IOO) 



00010135 



000008 

common pi 








00010140 



000009 

common Wl f YBR 

. XBR 

9 

ZRR 

9 

DY 1 

9 

DX1 

00010145 



000010 

COMMON DZ1 , DPY 

» DPX 

9 

DPZ 

9 

S 

9 

T 

00010150 



000011 

COMMON J , N 

> K 

9 

M 

9 

Y 

9 

X 

00010155 



000012 

COMMON Z » RHO 

* A1 

9 

B1 

9 

Cl 

9 

A2 

00010160 



000013 

COMMON 82 , C2 

* R1 

9 

R2 

9 

R3 

9 

H 

00010165 



000014 

COMMON B t A 

. AL 

9 

WT 

9 

YBT 

9 

XBT 

00010170 



000015 

COMMON ZBT , DYT 

, DXT 

9 

DZI . 

9 

SWYT 

9 

SWXT 

00010175 



000016 

COMMON SWZT , SWYST 

, SWXST 

9 

SWZST 

9 

SDYT 

9 

SDXT 

00010180 



000017 

COMMON SDZT , HOL 

» W 

9 

YB 

9 

XB 

9 

ZB 

00010185 



000010 

COMMON DY r DX 

» DZ 

7 

SWY .. 

9 

SWX 


swz 

00010190 



000019 

COMMON SWYS > SWXS 

. SWZS 

9 

SDY 

9 

SDX 

9 

SDZ 

00010195 



000020. 

COMMON D1 » D2 

» 03 

f 

CL1 

9 

CL2 

9 

CL3 

00010200 



000021 

COMMON CM1 , CM2 

» CM3 

9 

CN1 

9 

CN2 

9 

CN3 

00010205 



000022 

COMMON A3 ' , B3 

. C3 

9 

CL1S 

9 

CL2S 

9 

CL3S 

00010210 



000023 

COMMON CM1S t CM2S 

• CM3S 

9 

CN1S 

9 

CN2S 

9 

CN3S 

00010215 



000024 

COMMON E » V 

. PY 

9 

PX 

9 

PZ 



00010220 



000025 

NN=N 








00010225 



000026 

000027 

M=120 

PHI = PI *R3 /180.0D0 








00010230 

00010235 



000028 

ALF = PI*H / 360. 0D0 








00010240 



000029 

0= 2 . ODO+PI *RHO *R2**2 








00010245 



000030 

T 1 = PHI-ALF 








00010250 



000031 

T2= PHI+ALF 








00010255 



000032 

SN1 =DSIN(T1) 








00010260 



000033 

SN2 =DSIN(T2) 








00010265 



000034 

CS1 =DCQS(T1) 








00010270 



000035 

CS2 =0C0S(T2) 








00010275 



000036 

£1= CS2-CS1 








00010280 



000037 

£2 = SN2-SN1 








00010285 



000038 

E3= . 5D0* ( SN2**2 -SN1**2) 







00010290 



000039 

E4= .5D0*(SN2*CS2 - SN1*CS1) 







00010295 



000040 

E5= (CS2**3 -CS1**3) /3 

• 0D0 







00010300 



000041 

Wl= 0* (R1*ALF -El*R2/3. 

0D0) 







00010305 



000042 

S= Q/W1*R2 * ( E2*R 1/3 . 0D0+ E3*R2/4. 

ODO) 





00010310 



000043 

Gl= . 7500* ( ALF-E4 ) 








00010315 



000044 

62= , 2D0 * ( E5-E1 ) 








00010320 



000045 

63= ALF*S**2 *R1 








00010325 



000046 

64= -S/3.0D0*(2.OD0*E2*Rl +E1*S) 







00010330 



000047 

65= . 25D0 *(R1*(ALF+E4) 

-2 • 0D0*E3*S ) 





00010335 



000048 

66= - . 2D0 *E5 








00010340 



000049 

CALL DIRC 








00010345 



000050 

OPY= Q*(ALF*R1**3 - E1*R1**2 *R2 

+G1*R1*R2**2 + G2*R2**3 ) 

00010350 



000051 

DPX= . 5D0*DPY +Q*(G3+G4*R2 +G5*R2**2 +G6*R2**3 ) 



00010355 



•000052 

DPZ= DPX 

1 







00010360 



000053 
frps 000054 

CALL DELTA 
N=NN 








00010365 

00010370 



«sj 000055 

RETURN 








00010375 



000056 

END 


1 






00010380 





Q ELT F0R121, 1.710420. 60456 


000001 
000002 
J300003 
000004* 
000005 
_0 0 0 0 0 6 _ 
000007 


000025 
000026 
000027 
600028 
000029 
000030 
000 031 
000032 
000033 
000034' 
000035 
_000036_ 
000037" 
000038 
000039 


C121FOR ' 

SUBROUTINE F0R121 

C FORMULA 121 - RADIAL SECTOR OF A HOLLOW TORUS 


IMPLICIT REAL*8 (A-H.O-Z) 

DIMENSION HOL ( 1 2 ) » W ( 1 0 0 ) » YB ( 

1(100). DX(IOO). DZdOO), SlvY(lOO). 


1(100). XBdOO). ZB 
SWX( IOO ). SWZ(IOO) 
2SWXS ( 100 ) . SWZS(IOO). SDY(IOO). SDX(IOO). SDZdOO) 


00010385 

00010300 

00010395 

00010400 
(100). DYOOO 1 04 05 

. SWYSdOO). 00010410 
00010415 


000008 

000009 

COMMON 

COMMON 

PI 

Wl 

. YBR 

. XBR 

9 

ZPR 

9 

DYl 

. DX1 

00010420 

00010425 

000010 

common 

DZ1 

. DPY 

. DPX 

9 

DPZ 

9 

S 

. T 

00010430 

000011 

COMMON 

J 

. N 

. K 

9 

M 

9 

Y 

. X 

00010435 

000012 

COMMON 

z 

» RHO 

. A1 

9 

B1 

9 

Cl 

► A2 

00010440 

000013 

COMMON 

B2 

. C2 

, R1 

9 

R2 

9 

R3 

. H 

00010445 

000014 

COMMON 

B 

» A 

» AL 

9 

WT 

9 

YBT 

. XBT 

00010450 

000015 

common 

ZBT 

. DYT 

. DXT 

9 

DZT 

9 

SWYT 

. SWXT 

00010455 

000016 

COMMON 

SWZT 

. SWYST 

» SWXST 

9 

SWZST 

9 

SDYT 

. SDXT 

00010460 

000017 

COMMON 

SDZT 

. HOL 

. w 

9 

YB 

9 

XR 

. ZB 

00010465 

000018 

COMMON 

DY 

. DX 

. DZ 

9 

SWY 

9 

swx 

. swz 

00010470 

000019 

common 

SWYS 

. SWXS 

. SWZS 

9 

SDY 

9 

SDX 

. SDZ 

00010475 

000020 

common 

D1 

. D2 

. D3 

9 

CL1 

9 

CL2 

. CL3 

00010480 

000021 

COMMON 

CM1 

. CM2 

. CM3 

9 

CNl 

9 

CN2 

. CN3 

00010485 

000022 

common 

A3 

. B3 

. C3 

9 

CL1S 

9 

CL2S 

. CL3S 

0001 0450 

000023 

common 

CM1S 

. CM2S 

. CM3S 

9 

CN1S 

9 

CN2S 

. CN3S 

00010495 

000024 

common 

E 

. V 

. PY 

9_ 

PX 

9 

PZ 


00010500 


SAVE INPUT 

NN= N 
N= 121 


ER2 = R2 
ER3 = R3 

OUTER SECTOR 


R3= AL 
CALL FOR120 
WC= Wl 
YC= YBR 
XC= XBR 
7.C= ZBR 
CY= DYl 
CX= DX1 
CZ= DZ1 


00010505 

00010510 

0001051.5 

00010520 

00010525 

00010530 

00010535 

00010540 

00010545 

00010550 

00010555 

00010560 

00010565 

00010570 

00010575 


000040 

C 

INNER SECTOR 

00010580 

000041 


RHO = -RHO 

00010585 

000042 


R2 = ER3 

000105 Q 0 

000043 


CALL FOR 120 

00010595 

000044 


WF= Wl 

00010600 

000045 


YF= YBR 

00010605 

000046 


XF= XBR 

00010610 

000047 


ZF= ZBR 

00010615 

000048 


FY= DYl 

00010620 

000049 


FX= DX1 

00010625 

000050 


FZ= DZ1 

00010630 

000051 

C 

RESTORE INPUT 

00010635 

000052 


R2 = ER2 

00010640 

. 000053 


R3= ER3 

00010645 

^ 000054 


RHO= -RHO 

00010650 

000055 


N= NN 

00010655 

000056 

c 

COMBINE PARTS 

00010660 



wl= WC + WF 

YM= WC*YC + WF*YF ~~ ~ 

XM= W C*XC + WF*XF 

_ZM-_WC*ZC_ + W F*ZF 

YM2= WC#YC**2 + WF*YF**2 
XM2= WC*XC**2 + WF*XF**2 
ZM2= WC*ZC**2 + WF*ZF**2 
YD= CY+FY 
XD= CX+FX 

Z D= C2 + F Z 

YBR= YM / W1 
XBR= XM / W1 

J_ B R- ZM / W 1 

DY1= XM2 +ZM2 +Y0 ~W1* < XBR*XBR + ZBR*ZRR) 

DX1= YM2 +ZM2 +XD -Wl* ( YBR*YBR + ZBR*ZBR) 

DZ1= XM2 +YM2 +ZD -Wl*(XBR*XBR + YBR*YBR ) 

RETURN 
END 





_0Q01 0665 
00010670 
00010675 
000106R0 
000106B5 
00010690 
0001 0695_ 
00010700 
00010705 
00010710 
00010715 
00010720 
00010725_ 
00010750 
00010755 
00010740 
00010745 
00010750 



0 ELT F0R122, 1,710420, 60456 


000001 

000002 

000003 


000052 

000053 

000054 


C122F0R ' " " 

SUBROUTINE F0R122 

C FORMULA 122 - AXIAL SEGMENT OF HOLLOW ELLIPTICAL SPHEROID 


00010755 

00010760 

00010765 


CALL DELTA 
RETURN 
END 


00011010 
00011015 
0001 1620 


000004 

IMPLICIT REAL*8 (A-H,0- 

Z) 




00010770 



000005 

DIMENSION HOL ( 12 ) 

, W(100), 

YB(IOO) , 

XB(100>, 

ZB ( 1 00 ) » 

DYOOO 1 0775 



000006 

1(100), DX(100), DZ(100) 

, SWY(IOO) 

, SWX(IOO), SWZ(IOO), SWYS(IOO)# 00010780 



000007 

2SWXS ( 100 ) * SWZS(IOO), SDY(IOO)* SOX(lf)O), 

SDZ(IOO) 


00010785 



000008 

COMMON PI 





00010790 



000009 

COMMON Wl , YBR 

p XBR 

, ZBR 

, DY 1 

, DX1 

00010795 



000010 

COMMON DZ1 , DPY 

, DPX 

, DPZ 

, S 

, T 

0001 0600 



000011 

COMMON J , N 

, K 

, M 

, Y 

, X 

00010805 



000012 

COMMON Z , RHO 

, A1 

, B 1 

> Cl 

, A2 

00010810 



000013 

COMMON 82 , C2 

, R1 

, R2 

* R3 

, H 

00010815 



000014 

COMMON B , A 

, AL 

p WT 

, YBT 

, XBT 

00010820 



000015 

COMMON ZBT , DYT 

, DXT 

* DZT 

p SWYT 

, SWXT 

00010825 



000016 

COMMON SWZT , SWYST 

, SWXST 

, SWZST 

► SDYT 

, SDXT 

00010830 



000017 

COMMON SDZT , HOL 

, W 

p YB 

, XB 

, ZB 

00010835 



000018 

COMMON DY , DX 

, DZ 

, SWY 

, SWX 

, SWZ 

00010840 



000019 

COMMON SWYS , SWXS 

, SWZS 

. SDY 

, SDX 

p SDZ 

00010845 



000020 . 

COMMON Dl , D2 

, 03 

, CLl 

* CL2 

p CL3 

00010850 



000021 

COMMON CM1 , CM2 

, CM3 

, CM1 

, CN2 

p CN3 

00010855 



000022 

COMMON A3 , B3 

, C3 

* CL1S 

p CL2S 

p CL3S 

00010860 



000023 

COMMON CM1S , CM2S 

, CM3S 

, CN1S 

p CN2S 

p CN3S 

00010865 



000024 

COMMON £ , V 

p PY 

, PX 

► PZ 


00010870 



000(125 

C PRELIMINARY COMPUTATIONS 




00010875 



000026 

G=R1-R3 





00010880 



000027 

C=R2-H 





00010885 



000028 

F=R2-R3 





00010890 



000029 

TL= H-R3 





000100°5 



000030 

TM= G/F 





00010900 



■" " 000031 

TN= R1/R2 





00010905 



000032 

D= (Rl+G) * (Rl-G) 





00010910 



000033 

U= (TN+TM) * (TN-TM) 





00010915 



000034 

El=(F*F+F*C +C*C) /3.0 





00010920 



000035 

E2=(R2*R2 + R2*F +F*F) 

/3.0 




00010925 



000036 

E3=(3.0D0*E1 *F*F +C**3 

* (F+C ) )/5 

• 

O 

O 

0 



00010930 



000037 

E4=(3.000 *E2 *R2*R2 +F**3 *(R2+F>) /5.0D0 


00010935 



000038 

TJ= Rl + Rl +G*G 





00010940 



000039 

TK= TN*TN + TM*TM 





00010945 



000040 

0= R3* (R1*R1*E2-TN+TN*E4 ) 




00010950 



000041 

Pl= (0*E1-U*E3) *TL 





00010955 



000042 

P2= R3 *(R1*R1 -TN*TN *E2 > 




00010960 



000043 

P3= (O-U+El) * TL 





00010965 



000044 

C WEIGHT, C.G.p AND DELTA VALUES 




00010970 



000045 

Wl= PI*RHO * ( P2+P3 ) 





00010975 



000046 

S= 0 .2500 / ( P2+P3 ) * (TL* (F+C ) *(2 

• 0D0*D -IJ * ( F*F +C*C)) +R3 

* (R2+000 1 0980 



000047 

1F)*<2.0D0*R1*R1 -TN*TN 

*<F*F +R2*R2) ) ) -C 



00010985 



000048 

CALL DIRC 





00010990 



000049 

PPY= 0.500 *PI*RH0*(TJ*P3 -TK*P1 

+R1*R 1*P2 

-Q*TN*TN) 

00010995 




000050 

DPX= 0 • 5DO*OPY +PI*RHO 

* ( Pl+Q ) -Wl *(S+C ) **2 


00011000 



000051 

DPZ= DPX 





00011005 





0 ELT F0R123, 1*710420, 60460 


Cfl 

te-A- 


000001 


SUBROUTINE F0R123 






00011025 

000002 

C 

FORMULA 123- CIRCULAR 

OGIVE OF REVOLUTION 




00011030 

000003 


IMPLICIT REAL*8 <A-H,0 

-Z) 





00011035 

000004 


DIMENSION 

HOL ( 12 ) , W(ino), 

YB(100) , 

XR(IOO) , 

ZB(IOO) , 

DY0001 1 040 

000005 


1(100), DX(100) 

, DZ(100), SWY(IOO) 

, SWX(IOO), SWZ(IOO), SWYS(IOO), 

00011045 

000006 


2SWXS ( 100 ) , SWZSUOO), 

SDY(IOO), SDX(IOO), 

SDZ(IOO) 



00011050 

000007 


COMMON PI 







00011055 

000008 


COMMON W1 

, YBR 

, XBR 

, ZBR 

» DY1 

, DX1 


00011060 

000009 


COMMON DZ1 

, DPY 

, DPX 

, DPZ 

, S 

, T 


00011065 

000010 


COMMON j 

, N 

, K 

, M 

, Y 

, X 


00011070 

000011 


common z 

, RHO 

, A1 

, B1 

, Cl 

, A2 


00011075 

000012 


common 32 

, C2 

, R1 

, R2 

, R3 

, H 


000110R0 

000013 


common b 

, A 

, AL 

, WT 

* Y8T 

* XBT 


00011085 

000014 


common zbt 

, DYT 

, DXT 

, DZT 

» SWYT 

, SWXT 


00011090 

000015 


common swzt 

, SWYST 

, SWXST 

, SWZST 

, SDYT 

, SDXT 


.00011095 

000016 


common sdzt 

, HOL 

, W 

, YB 

t XB 

, ZB 


00011100 

000017 


common dy 

, DX 

, DZ 

, SWY 

, swx 

, SWZ 


00011105 

000018 


common swys 

> S.WXS 

, swzs 

, SDY 

, SDX 

, SDZ 


.00011110 

000019 


common 01 

, D2 

, D3 

, CL1 

, CL2 

, CL3 


00011115 

000020 


COMMON CMl 

, CM2 

, CM3 

, CMl 

, CN2 

, CN3 


00011120 

000021 


COMMON A3 

, B3 

, C3 

., CJL.1S 

* CL2S 

, CL3S 


00011125. 

000022 

000023 


common cm is 
common e 

, CM2S 

, V 

, CM3S 
, PY 

, CN1S 
, PX 

, CN2S 
, PZ 

, CN3S 


00011130 

00011135 

000024 


REAL * 8 M»K,L 







00011140 

000025 

C 

PRELIMINARY COMPUTATIONS 





00011145 

000026 


M= (R2-R3J/H 







00011150 

000027 


K=0.5D0*(H - <R2*R2-R3*R3)/H> 





000111^5 

000028 



B= (M*K- 

R2 +DSORT 

(( R2~M*K ) **2 - ( R2*R2 +K*K - 

Rl* 

00011160 

000029 


1R1)*(1.0D0+M*M) ) > /(l. 

ODO+M+M ) 





00011165 

000030 


A = M*B -K 







00011170 

000031 


L = A + H 







00011175 

000032 


C = Rl*Rl + B*B 






00011180 

000033 


F -DSQRT ( R1*R 1 

-L*L) 






00011185 

000034 


G =DSQRT(R1*R1 

-A*A ) 






00011190 

000035 


E = L*F -A*G + 

R1*R1*<DATAN2(L»F) 

-DATAN2(A»G) ) 



00011195 

000036 


U = B* ( A*G**3 

-L*F**3 

+0 • 5D0*R1*R1 *E) 




00011200 

000037 


P3 = H* ( 3 • 0D0*A*L + H*H)/3.0D0 





00011205 

000038 


P5 = H* ( l_**4 + 

A*L**3 

+L*L*A*A + 

L* A**3 

+A**4)/5. 

ODO 


00011210 

000039 


Wl = PI*RH0*(C*H-B*E-P3) 





00011215 

000040 


S = <PI*RHO/Wl>* (0.5D0*C*H*(L+A) 

-0.25O0*H*(2.0D0*A*(2.0D0*L*L-00011220 

000041 


1A*H> +H**3 ) - 

(2.0D0*B/3.0D0)*(G**3 -F**3) ) -A 



00011225 

000042 


CALL DIRC 


' 





00011230 

000043 

. C 

COMPUTE DELTA 

VALUES 






00011235 

000044 


DPY =0.5DO* PI*RHO*( H* ( C*C + 4.0D0* R1*R1*B*B) -2 

• 0D0*P3* ( C 

+2.0 

00011240 

000045 


1*B*B ) + P5 -2. 

0D0*B*C*E +U) 





00011245 

000046 


DPX =0.5D0*DPY 

-Wl * ( A+S ) **2 + PI* 

RH0*(C*P3 -P5- 

0.5D0*U) 


00011250 

000047 

000048 

C 

COMPUTE DELTA 
CALL DELTA 

VALUES 

IN COMMON 

REFERENCE AXIS SYSTEM 


00011255 

00011260 

000049 


RETURN 







00011265 

000050 


END 







00011270 



n 


0 ELT FOR 124 *1*710420* 60461 


000001 

000002 

000003 

SUBROUTINE F0R124 
C FORMULA 124 SOLID 

IMPLICIT REALMS (A-H*0- 

HALF ELLIPSE 
Z) 



00013630 

00013835 

00013640 


000004 

000005 

000006 

DIMENSION HOL ( 12 ) * W(100>* Y8(100)* XB(100)r ZB(100>* 

1(100)* DX ( 100 ) * DZ(100), SWYT100)* SWX(IOO), SWZ(IOO)* SWYS(IOO) 
2SWXS ( 100 ) * SWZS(inO), SOY(IOO)* SDX ( 100) * SDZ(IOO) 

DY00013645 
. 00013850 
00013855 


000007 

COMMON PI 






00013860 


000006 

COMMON Wl 

. YBR 

* XBR 

* ZRR 

* DY1 

. DX1 

00013865 


000009 

COMMON DZ1 

* DPY 

> DPX 

. DPZ 

» S 

, T 

00013870 


ooonio 

COMMON J 

* N 

* K 

* M 

* Y 

* X 

00013875 


000011 

COMMON Z 

* RHO 

. A1 

* B 1 

* Cl 

* A2 

00013880 


000012 

COMMON B2 

. C2 

* R1 

. R2 

* R3 

* H 

00013885 


000013 

COMMON b 

* A 

* AL 

* WT 

* YBT 

. XBT 

00013890 


00U014 

common zbt 

. DYT 

* DXT 

» DZT 

* SWYT 

* SWXT 

00013895 


000015 

COMMON SWZT 

* SWYST 

* SWXST 

. SWZST 

* SDYT 

* SDXT „ 

00013Q00 


000016 

COMMON SDZT 

* HOL 

9 W 

* YB 

* XB 

, ZB { 

00013905 


000017 

COMMON DY 

* OX 

. * DZ 

* SWY 

* SWX 

* SWZ } 

00013910 


000018 

COMMON SWYS 

* SWXS 

. SWZS 

* SOY 

* SDX 

. SDZ 

00013915 


000019 

COMMON D1 

* D2 

. D3 

* CL1 

* CL2 

* CL3 

00013920 


000020 

COMMON CM1 

* CM2 

* CM3 

* CN1 

* CN2 

* CN3 

00013925 


000021 

COMMON A3 

* B3 

* C3 

* CL1S 

* CL2S 

» CL3S 

00013930 


000022 

COMMON CM1S 

. CM2S 

* CM3S 

* CM1S 

* CN2S 

* CN3S 

00013935 


000023 

COMMON E 

. V 

. PY 

* PX 

* PZ 


00013940 


000024 

Wl = 2.00 * PI 

* RHO * 

R1 * R1 

* R2 / 3. DO 


* 00013945 


000025 

S = • 375D0 * R2 





00013950 


000026 

CALL DIRC 






00013955 


000027 

DPY = .400 * Wl 

* R1 * 

R1 




00013960 


000028 

DPX = Wl / 320. 

DO * (64 

.DO * R 1 

* R1 + 19 

.DO * R2 * 

R2) 

00013965 


000029 

DPZ = DPX 






00013970 


000030 

CALL DELTA 






00013975 


O0G03T 

RETURN 






00013980 


000032 

end 






00013985 





0 ELT FOR2.1»7l0420* 60462 


000001 

000002 

000003 

C2F0R 

SUBROUTINE F0R2 
C FORMULA 

2 - HOLLOW TORUS 




00002585 

00002590 

000025°5 

000004 

IMPLICIT REAL*8 

( A-H * O-Z ) 




00002600 

000005 

DIMENSION 

HOL ( 12 ) * 

W( 100) 

. YB(IOO). 

XB(100) f 

ZB ( 100 ) * 

DY00002605 

000006 

1(100) * 

DX(100) » 

DZ(IOO) , 

SWY(100)» SWX(IOO), SWZdOOJ* SWYS(IOO) 

► 00002610 

000007 

2SWXS (100) > SWZSUOO), SDY ( 100 ) * 

SDX(IOO) . 

SDZ( 100) 


00002615 

000008 

common 

PI 






00002620 

000009 

common 

Wl 

# YBR 

f XBR 

* ZRR 

> DY1 

» DX1 

00002625 

000010 

common 

DZ1 

» DPY 

» DPX 

» DPZ 

* S 

t T 

00002630 

000011 

COMMON 

J 

, N 

, K 

9 M 

► Y 

» X 

00002635 

000012 

COMMON 

z 

» RHO 

# A1 

. B1 

» Cl 

> A2 

00002640 

000013 

COMMON 

B2 

» C2 

# R 1 

* R2 

» R3 

t H 

00002645 

000014 

COMMON 

B 

f A 

* AL 

* WT 

» YBT 

, XBT 

00002650 

000015 

common 

ZBT 

, DYT 

, DXT 

» DZT 

# SWYT 

r SWXT 

00002655 

000016 

COMMON 

SWZT 

, SWYST 

> SWXST 

# SWZST 

* SDYT 

, SDXT 

00002660 

0U0017 

COMMON 

SDZT 

, HOL 

* w 

» YB 

* XB 

r ZB 

00002665 

000018 

COMMON 

DY 

. nx 

. DZ 

r SWY .... 

t swx 

r. SWZ 

00002670 

000019 ' 

COMMON 

SWYS 

r SWXS 

» SWZS 

* SDY 

f SDX 

, SDZ 

00002675 

000020 

common 

Dl 

» D2 

. D3 

». CL1 

» CL2 

, CL3 

00002680 

000021 

COMMON 

CM1 

f CM2 

. CM3 

* CN1 

# CN2 

. CN3 

000026B5 

000022 

common 

A3 

► B3 

. C3 

» CL IS 

t CL2S 

r CL3S 

00002690 

000023 

common 

CM1S 

# CM2S 

. CM3S 

» CN1S 

♦ CN2S 

* CN3S 

00002695 

000024 

common 

E ... 

. V 

_r PY 

» PX 

» PZ 


00002700 

000C25 

E= 2. QD0*PI**2 

*RHO * R1 





00002705 

000026 

Wl= E* (R2**2 -R3**2 ) 





00002710 

000027 

S=O.ODO 






00002715 

000028 

CALL DIRC 






00002720 

000029 

dpy = 

f/l*Rl**2 

+.75D0*E 

* (R2**4 

-R3**4 ) 



00002725 

000030 

DPX = 

•5D0*W1*R1**2 +.625D0 *E 

*{R2**4 -R3**4 ) 


00002730 

000031 

DPZ = 

DPX 






00002735 

000032 

CALL DELTA 






00002740 

000033 

RETURN 







00002745 

000034 

END 







00002750 



01 

CO 



I 


I 


□ 


Q ELT FOR201, 1*710420, 60463 


000001 
000002 
000003_ 
'000004 
000005 
_ 000 0 06_ 
000007 
000008 


000025 
000026 
0 00 027 
000028 
000029 
000030 
"000031” 
000032 
_000 033 
OOOOW 
000035 
000036 
0 O'O 0 37 
000036 


C201FOR 

SUBROUTINE FOR201 

_C_ FORMUL A 2 01 - S ECTOR O F A HOL LOW T ORUS 

( A-H * 0-Z ) ” 


00011275 
00011280 
000 1 1285_ 
00011290 


IMPLICIT REALMS 

DIMENSION HOL ( 12 ) , W(100), YB(lOO), XB(IOO), ZB<100), DY00011295 

11100 )_i_D X(100), OZ(IQO) > S W YJ_1_00.).*_SW XU 00), SWZ(IOO), SWYS(IOO)* 0 0011300 


2SWXS ( 100 ) » SWZS(IOO), SDY(IOO), SDX(lOO), SDZ(IOO) 

common pi 


00011305 

00011310 



000009 

common 

wl 

* YBR 

, XBR 

* ZBR 

, DY1 

* DX1 

00011315 


000010 

common 

DZ1 

* DPY 

, DPX 

* DPZ 

* S 

* T 

00011320 


000011 

COMMON 

J 

* N 

« K 

* M 

* Y 

* X 

00011325 


000012 

common 

z 

* RHO 

* Ai 

* B1 

» Cl 

* A2 

00011330 


000013 

common 

B2 

* C2 

, R 1 

* R2 

, R3 

* H 

00011335 


000014 

common 

B 

* A 

* AL 

* WT 

* YBT 

, XBT 

00011340 


000015 

common 

ZBT 

, DYT 

* DXT 

* DZT 

t SWYT 

, SWXT 

00011345 

s 

000016 

COMMON 

SWZT 

* SWYST 

, SWXST 

* SWZST 

, SDYT 

* SDXT 

00011350 

c 

000017 

common 

SDZT 

. HOL 

. W 

•* YB 

, XB 

, ZB 

00011355 

i 

000018 

common 

DY 

. DX 

, DZ 

* SWY 

» SWX 

* SWZ 

00011360 


000019 

common 

SWYS 

* SWXS 

. SWZS 

* SOY 

, SOX 

, SDZ 

00011365 

| 

000020 

common 

D1 

, 02 

* D3 

• CL 1 

, CL2 

» CL3 

00011370 


000021 

common 

CM1 

* CM2 

. CM3 

* CN1 

* CN2 

, CN3 

00011375 

o 

000022 

common 

A3 

, B3 

, C3 

* CLIS 

* CL2S 

* CL3S 

00011380 


000023 

common 

CM1S 

* CM2S 

» CM3S 

* CN1S 

, CN2S 

r CN3S 

00011385 


000024 

common 

E 

* V 

. PY 

* PX 

* PZ 


00011390 


AL= PI*AL /180.0DO 00011395 

A- R2**2 +R3**2 00011400 

E= 2.0D0/AL *(DSIN(AL) )**2 *C2.0D0*R1**2 +A + A**2 / ( 8. 0D0*R1**2 ) ) 00011405 

WT= 2'.~ODO*PI*RHO*FU*AL * ( R2*R2-R3*R3) 00011410 

S-DSIN ( AL ) /AL *(R1+ .25D0*A/R1> 00011415 

CALL DIRC 00011420 

DPY=wI*. 2500 /AL *(~4.0D0*R1**2*AL +3. dOO~*A*AL -E) 00011425 

DPX= • 0625D0*W1 /AL * (4. 0D0*R1**2 * < 2 . ODO*AL-DSIN ( 2 * OD0*AL) ) +A*(100011430 
10 • ODO*AL -3. 0D0*DSIN ( 2 . 0D0*AL ) ) ) 00011435 

DPZ= • 0625D0*W1 /AL * f47006*Rl**2 *<2.0D0*AL +DSIN { 2 . 0D0*AL) ) + A*000li440 
1<10.0DO*AL+3.0DO*DSIN(2.000*AL) > -4.000*E) 00011445 

CAL L DELTA 0_0011_450 

RETURN 00011455” 

END 00011460 


C/1 



.1 


13 ELT FOR202, 1»710420, 60465 


000001 

000002 

000003 

C202FOR 

SUBROUT 
C FO 

INE FOR202 
RMULA 202 - RECTA 
T REAL* 8 ( A-H r 0-2 
ON H0L(12), 

DX ( 100 ) t DZ(100), 

NGULAR PRISM 





00011465 

00011470 

00011475 

000004 

000005 

000006 

IMPLICI 
D I MENS I 
1(100) # 

) 

W< 100) t 
SWY ( 100 

00011480 

YB ( 1 00 ) t XB( 100 ) t 2B ( 100 ) » DY000114P5 

. SWXdOO), SWZ ( 100 ) r SWYSdOO )t 00011490 

000007 

000008 

000009 

2SWXS ( 100 ) t SWZSdOO)# SOY ( 100 ) * SOX(IOO). 

common pi 

common wl # YBR > XBR » ZBR 

SDZdOO 
t DY1 

* 

DXl 

00011495 

00011500 

00011505 

000010 

common 

DZ1 

, DRY 

. OPX 

* DPZ 

9 

s 

9 

T 

00011510 

000011 

common 

J 

9 N 

. K 

t M 

t 

Y 

9 

X 

00011515 

000012 

common 

z 

» RHO 

, A1 

• B1 

9 

Cl 

9 

A2 

00011520 

000013 

common 

B2 

» C2 

, R1 

* R2 

9 

R3 

9 

H 

00011525 

000014 

common 

B' 

, A 

r AL 

* WT 

9 

YBT 

9 

XBT 

00011530 

000015 

common 

ZBT 

» DYT 

» DXT 

* DZT 

9 

SWYT 

9 

SWXT 

00011535 

000016 

common 

SWZT 

» swyst 

, SWXST 

» SWZST 

9 

SDYT 

9 

SDXT 

00011540 

000017 

common 

SDZT 

r HOL 

i W 

> YB 

9 

XB 

9 

ZB 

00011545 

000018 

common 

DY 

* DX 

. DZ 

* SWY 

9 

SWX 

9 

SWZ 

00011550 

000019 

common 

SWYS 

# SWXS 

# swzs 

* SDY 

9 

SDX 

9 

SDZ 

00011555 

000020 

common 

D1 

» D2 

* D3 

* CLl 

9 

CL2 

9 

CL3 

00011560 

000021 

common 

CMl 

r CM2 

. CM3 

» CNl 

9 

CN2 

9 

CN3 

00011565 

000022 

common 

A3 

* B3 

, C3 

» CL1S 

9 

CL2S 

9 

CL3S 

00011570 

000023 

common 

CM1S 

» CM2S 

r CM3S 

» CN1S 

9 

CN2S 

9 

CN3S 

00011575 

000024 

common 

E 

, V 

# PY 

f PX 

9 

PZ 



00011580 

000025 

Wl= RHO 

*A*B*H 








00011585 

000026 

S-0 • 0D0 









00011590 

000027 

call dirc 








000115R5 

000028 

DPY=Wl/12.0DO*(A*A +8*R ) 







00011600 

000029 

DPX=wl/12.0D0*(B*B +H*H) 







00011605 

000030 

DPZ=Wl/12.0D0*(A*A + H*H) 







00011610 

000031 

CALL DELTA 








00011615 

000032 

RETURN 









00011620 

000033 

END 






> 

■ . . 

••••'■ 

00011625 
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C203FOR 00011630 

SUBROUTINE FOR203 00011635 

_C __ FORMULA _203 - SECTOR OF OUTE R HA LF-TORUS 00011640 

IMPLICIT REALMS (A-H.O-Z) 00011645’ 

DIMENSION HOL (12)# W(100>» YB<100)> XBtlOO)* ZB(100)» DY00011650 

1(100) > DX(1 00)> DZ ( 100 1 t SWY ( 100 ) * SWX(1 00) > SW Z(1Q0)» SWYSdOOW 0 0011655 

2SWXSU00). SWZS(10~0)» SDYUOO). SDX(IOO), SDZ(IOO) 00011660" 


COMMON PI 

__C OMMON W 1 > Y BR »_ XBR •_ ZRR__ t_ D Y 1_ L DX 1 0 0011670 

COMMON DZ1 > DPY » DPX . DPZ » S » T 00011675' 

COMMON J »N.»K t M » Y t X 00011680 

COMMON Z > R HO »_A1 * B1 » Cl ._A2 00011685 

COMMON B2 » C2 , R1 » R2 » R3 , H 00011690 

COMMON B > A , AL t WT t YBT ► XBT 00011695 

COMMON Z BT . DY T . D XT » D ZT > S W YT > S WXT 0001 1700. 

COMMON SWZT r SWYST , SWXST , SWZST » SDYT » SDXT 00011705 

COMMON SDZT . HOL » W . YB • XB t ZB 00011710 

COMMON DY t DX , OZ t SWY *_SWX > S WZ 00011715 

COMMON SWYS » SWXS . SWZS * SDY , SOX . SDZ 00011720" 

COMMON D1 t 02 , 03 V CL1 # CL2 t CL3 00011725 

COMM ON CM1 > CM2 t C M3 » CN1 » CN2 » C N3 000 1 1730_ 

COMMON A3 , B3 , C3 # CL1S > CL2S r CL3S 000117~35 

COMMON CM1S r CM2S . CM3S * CN1S * CN2S t CN3S 00011740 

COMM ON _E » V .PY . PX t PZ 00 011745 

AL= PI*AL /180.0O0 00011750 

A- 1.0D0/(PI*R1 +4.0D0*R2 /3.0D0) 00011755 

El = ( AL-DSIN ( AL ) *DCOS ( AL ) ) /<4.0D0»AL) 00011760 

E2 = f AL+DlTlN ( AL ) *DC0S’( ALT) / <2. ODO+AL) : 00011765" 

Wl = RHO *AL * R2**2 /A 00011770 

S= U • ODO*A*O SIN(AL) ) /(3.0D0*AL) *( . 75D0+PI *R 1 *R1 + . 1875D0*PI*R2*RQ 00 1 1775 
T2+2. ODO*Rl*R2) 00011780 

CALL DIRC 00011785 

_ . A _* w L* R } **3 +.75D0*PI*R1*R 2*R2 +4.QD0*R1*R1*R2 +8.0D0/15.0 00011790 

rD0*K2**3) -W1*S*S 0001 1705 

DPX= A*W 1 * ( 2.0D0*PI*E1*R1**3 + PI* (. 2500+1 . 5D0*E1 ) *Rl*R2*R2 +2.0 00011800 

1D0 *E1*R1*R1*R2 + ( 4 . 0D0+E 1 ) /15 . OD 0*R 2**3 1 0 0 0 1 1 8 0 5_ 

DPZ= A*wi* <PI*E2*R1**3 +PI * ( . 25D0+. 75D0*E2 ) *R1*R2*R2 +4. 0D0*E2*R1 0001 1810 
1*R1*R2 +(4.0D0+6.0D0*E2) /15. 0D0*R2**3) -W1*S*S 00011815 

—CALL.. . DELTA 0.0 0 1.1 62.0_ 

RETURN 00011825 

END ■ 00011830 


COMMON SWYS 
COMMON D1 
COMMON CM1 
COMMON A3 
COMMON CM1S 
COMMON E 


XBR 

DPX 

K 

_A1 

Ri 

AL 

_DXT 

SWXST 

W 

DZ 

SWZS 

D3 

_CM3 

C3 

CM3S 

PY 


ZRR 

DPZ 

M 

B1 

R2 

WT 

_OZT 

SWZST 

YB 

SWY 

SDY 

CL1 

CN1 

CL1S 

CN1S 

PX 


00011660 
00011665 
_0001 1670.. 
00011675 
00011680 
0001 1685_ 
00011690 
00011695 
00011700_ 
00011705 
00011710 
00011715 
00011720 
00011725 
_00011730_ 
00011735 
00011740 
_00011745 
00011750 
00011755 
_000 1 1760_ 
00011765 
00011770 



Q ELT FOR204, 1>710420, 60468 


000001 
000002 
.000003. 
000004 
000005 
_000006_ 
000007 
000008 
.000009. 
000010 
000011 
000012 . 
‘000013 
000014 
000015. 
000016 
000017 
000018 
000019 
000020 
. 000021 . 
000022 
000023 
.OGOG24. 
000025 
000026 
.000027 
000028 
000029 
_000030_ 
000031 
000032 
000035 
000034" 
000035 
_000036 
0 00037" 
000038 
000 039 
000040 
000041 
0000 42 
000043 
000044 
.000045. 
000046 
000047 
_00p048_ 
000049 
000050 
000051 
000052 


C204FOR 

SUBROUTINE FOR204 

C FORMULA 204 - T RUNCATED LINGULA OF A CY LINDER 

IMPLICIT REAL*8 (A-H.O-2) 

DIMENSION HOL ( 12) » W(100>. YB(100)» XBdOO), ZBd00>» 

1(100), DXd.OOJ, DZdOO), SWY(IOO), SWXdOO), SWZdOOli SWYS( 

2SWXS(100)» SWZSilOO), SDY(IOO), SDX(IOO), SDZdOO) 


COMMON 

.COMMON. 

common 

COMMON 

.COMMON 

COMMON"" 

COMMON 

-COMMON. 

common 

COMMON 
. COMMON. 
COMMON 
COMMON 
_CO_MMON_ 
COMMON 
COMMON 


_YBR 

DPY 

N 

_RHO 

C2 

A 

.DYT. 

SWYST 

HOL 

_DX 

SWXS 

D2 

_cm2 

B3 

CM2S 
V 


DXT _ 

, DZT 

9 

SWYT 

swxsf 

, SWZST 

9 

SDYT 

W 

• yb 

9 

XB 

DZ 

, SWY 

„_l..SWX._ 

SWZS 

* SDY 

t 

SDX 

D3 

, CL1 

9 

CL2 

CM3 

, CMl 

9 

CN2 

C3 

, CL1S 

9 

CL2S 

CM3S 

, CNlS 

9 

CN2S 

PY 

-f-EX 


_EZ 


C 0 M M 0 N £ , V , PY , PX , PZ 

F- Rl-A 

P=0SGRT(R1**2 -F**2> 

ALF = o A T A l-l 2 ( P r F) 

SA=DS"IN(ALF) 

S2A=DSIN(2.0D0*ALF) 

CA=DCOS(ALF) 

IF ( A"-B") "10,20,10 
10 E= H/ ( A-B ) 

Q=DSQRT(9*<2.0D0*R1 -B) ) 

G- Rl-8 

BET =0 ATAN2 ( G » G ) 

C= RH0*E*R1**3 
S3A=nSlN(3.0D0*ALF) 

S4A=DSIN(4i0D0*ALF> 

SB= DS IN(B Ef ) 

S2B=DSIN(2.0n0*BET) 

S3B=DSIN(3.0DC*BET) 

S4B=D S I N ( 4 « 0 D 0 * B ET) _ 

C2A=DC0S ( 2 . ODO+ALF ) 

C3A=DCOS(3,ODO*ALF) 

cb=dcos_(re:t) 

C2B=DC0S ( 2". 0D0*BET ) 

C3B=DCOS(3,ODO*BET) 

U= 2 . 000 /15. 0P0 *C*R1**2 * (SA**5 -SS**5) 

COMPUTE WEIGHT * " 

Wl= C*<SA-SB-ALF*CA +BET*CB-1 , 0D0/3 . 000* (SA**3 - SB**3) > 

Y AXIS COMPONENT OF C.G» . 

S= C*E /8.0D0+R1/W1 * (S2A-S2B-2, OD0*ALF*C2A +2 . 0D0*BET*C2B 
1ET +.25D0* (S4A-S4B) ) -E*F 

COMPUTE X AXIS CO M PONENT OF C.G . 

V=0.0D0 

COMPUTE Z AXIS COMPONENT OF C.G., 


00011835 

00011840 

00011845. 

00011850 
DY000 1 1855 
100 ), 00011860 
00011865 
00011870 

00011875 

00011880 

00011885 

00011890_ 

0001 18°5 
00011900 
__ 0001190 5_ 
00011910 
00011915 
00011920 
00011925 
00011930 

0001 1935_ 

00011940 

00011945 

00011950 

00011955 

00011960 

00011965. 

00011970 

00011975 

00011980. 

00011985 

00011990 

00011995. 

00012000 

00012005 

00012010 . 

00012015 

00012020 

00012025. 

00012030 

00012035 

0n012040_ 

00012045 

00012050 

00012055. 

00012060 

00012065 

: 000 12070_ 

00012075 

00012080 

00012085. 

ALF +B00012090 
00012095 

0001210 0_ 

00012105 

00012110 



n 


000057 

000058 

000059 

000060 

000061 

000062 

000063 

000064 

00O065 

000066 

000067 

000068 

000069 

000070 

000071 

000072 

000073 

000074 

000075 

000076 

000077 

000078 

000079 

000080 

000081 

000082 

000083 

000084 

000085 

000086 


C 

c 


c 


c 


T=2 v pOq/3.ppO*C/Wl*Rl*_( .375D0*(ALF-BF.T)r_.!25D0*(.S2A-S2B)_+1.0D0/32nn01?l 15 


1 . ODO* t S4A-S4B < ) 

DIRECTION COSINES AND C.G. 
CALL SPEDIR _ 

PRODUCTS OF INERTIA 
PY=0.0D0 

PX = E* ( U-W1 *T *F ) _^W1*S*T _ 


00012120 

00012125 

00012170 

00012135 

00012140 

00012145 


PZ=0.0D0 

COMPUTE DELTA VALUES 

OPZ= C*(ZIRTJALF»E»R1»F) - ZIRT ( BET » E # R l »F_> > -W1*S*S 

DPX= DPZ -W1*T*T +U 

DPY= • 5D0* ( W 1*R1*R1 +U) -W1*T*T 

__ ROTATE DELTA J/ALUES TO COMMON REFERENCF_ORIENTATION 
CALL SPEDEL 
RETURN 

20 C=2.0D0*ALF_^_S2A 
S= • 5D0*H 
V= 0.0D0 

T= 4.OD0/3.0D0+R1/C *SA**3 ___ 

CALL SPEDIR 

E= RHO *C*.5D0*R1**2 

_ 0= . 2500*R1**2 *(1.0D0-T/R1*CA> 

U= . 25D0*R1**2 *(1.000+3. 0D0+T/R1 *CA> -T**2 

Wl= E*H 

DPY= W1*(G+U) 

PPX- W1/12.0DO*(12.0DO*U +H**2) 

DPZ= W1/12.0D0*(12.0D0*G +H**2> 

CALL DELTA 

RETURN 

END 


00012150 
00012155 
C0012160 
00012165 
00012170 
00012175 
000121P0 
00012165 
00012100 
00012105 
00012200 
00012205 
0001221 0 
00012215 
00012220 
00012225 
00012230 
00012235 
00012240 
00012245 
00012250 
00012255 
00012260 



i 


&i 

00 



1 
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000001 

000002 


C205FOR 

SUBROUTINE FOP.205 


00012370 

00012375 


000003 

c 

FORMULA 205 

- SOLID 

TAPERED TORUS 



00012380 


000004 


IMPLICIT REAL*8 

U-H.O- 

Z) 




000123R5 


0U0005 


DIMENSION 

HOL ( 12 ) 

* w(100)f 

YB(IOO) . 

ICB(IOO) * 

ZB ( 100 ) ► 

DY0001 23 Q 0 


000006 


1(100) * 

DX( 1005 * 

DZ(100) 

. SWY(IOO) 

* SWXC100)* SWZ(IOO)* SWYS(IOO) 

* 00012395 


000007 


2SWXS ( 100 ) * SWZS(IOO)* SDY(IOO)* SDX(IOO)* 

SDZ(IOO) 


00012400 


000008 


3C ( 10 ) *P(5) 






00012405 


000009 


COMMON 

PI 






00012410 


000010 


common 

Wl 

. YBR 

. XBR 

. ZBR 

* DY1 

* DX1 

00012415 


000011 


COMMON 

DZ1 

. DPY 

* DPX 

* DPZ 

* S 

. T 

00012420 


000012 


COMMON 

J 

* N 

* K 

* M 

» Y 

* X 

00012425 


000013 


COMMON 

Z 

* RHO 

. A1 

* B1 

* Cl 

* A2 

00012430 


000014 


COMMON 

B2 

. C2 

. R1 

* R2 

* R3 

* H 

00012435 


000015 


COMMON 

B 

* A 

. AL 

* WT 

* YBT 

* XBT 

00012440 


000016 


COMMON 

ZBT 

. DYT 

. DXT 

* OZT 

* SWYT 

. SWXT 

00012445 


000017 


COMMON 

SWZT 

. SWYST 

* SWXST 

. SWZST 

* SDYT 

. SDXT 

00012450 


000018 


COMMON. 

SDZT 

. HOL 

« w 

* . yb . 

*. XB 

* ZB 

00012455 


000019 


COMMON 

OY 

. OX 

. DZ 

* SWY 

* SWX 

* swz 

00012460 


000020 


COMMON 

SWYS 

. swxs 

* SWZS 

* SPY 

* SDX 

* SDZ 

00012465 


000021 


COMMON 

D1 

. D2 

. D3 

* CL1 

. CL2 

* CL3 

00012470 


000022 


COMMON " 

CM1 

r CM2 

* CM3 

. CNl 

* CN2 

* CN3 

00012475 


000023 


COMMON 

A3 

* B3 

. C3 

. CL1S 

* CL2S 

* CL3S 

000124B0 


000024 


COMMON 

CM1S 

. CM2S 

. CM3S 

. CN1S 

* CN2S 

* CN3S 

00012485 


000025 


common"" 

E 

. V 

*' py" 

* PX 

* PZ 


00012490 



PRELIMINARY COMPUTATIONS 00012405 

G=R2-R3 00012500_ 

G=R1+R3 00012505 

F1=3,ODO-12.0DO/PI**2 00012510 

F2=5.0PO-30. 0DQ/PI**2 00012515_ 

P'(lV'='R2+R3 00012520 

DO 10 1=2*5 00012525 

10 P(I) = P(I-l) *R2 _+R3**I 00012530 

VOLUME AND WEIGHT " 00012535 

V= PI**2 * (2 . 0D0*Q*R3*R3 +R3*(2.0D0*Q+R3> *G +2 . 0D0/3. 0D0*G*G* (Q+200012540 

1 . 0D0*G ) + . 5 D0*G**3 ) 00012545 

Wl-" RHO * V ’ 00012550 

S= 2 . 0D0*G /V * ( 4 • 0D0*Q*Q*R3 +4. 0D0*Q*R3*R3 +R3**3 +G* ( 2 . 0D0*Q*Q +00012555 

18 . 0D 0*Q *R3+ 3.0P0*R 3 *R3)+G*G*Fl*<2.OD0*O+3 . 0DQ*R3)+G**5*F2) 0 OP 1 2560__ 

CALL DIRC ' 00012565 

DPY=PI**2 *RHO/12.0D0*(8.0D0*Rl**3 *P(2> +18 . 0D0*R1* { R1*P ( 3) +P « 4 ) 000 12570 

1) +7 . 0D0*P ( 5 ) ) -Wl*S*S 00012575 

F=G/PI 00012580"" 

C(l)= 1 .5D0*O*R3*R3 *<4.0D0*Q*Q +5 . 0D0*R3*R3) 00012585 

C (2 )= . 75D0*R3*G *(8.0D0*Q**3 +1 2_.JP 0*Q»Q*R 3 +20 . 0D0*Q*R3*R3 +5. OP 00012590 


10*R3**3) 


00012595 


C(3)= G*G*(2.0DO*Q**3 +12 . 0D0*Q*Q*R3 +21 . 000*Q*R3*R3 +10 . 000*R3**300012600 


1) 000 12605_ 

C(4)= .7500 *G**3 *(6.0D0*Q*Q +22.0D0*Q*R3 +17. 0D0*R3**2 ) 00012610 

C(5)= • 3D0 *G**4 * ( 17« ODO*Q +28.0D0*R3) 00012615 

C ( 6 ) = 2. 250 0 *G**5 0001262 0_ 

C ( 7 ) = .75DO*F*F*<4.0DO*G**3 +24.0'D0*G*Q*R3 +30 . 0D0*Q*R3*R3 +12. 00000012625 
1*R3**3 -45.000*0* *F*F-60 . 0D0*F*F*R3) 00012630 

C ( 8 ) = 1.125D0 *G*F*F *(12.0D0*Q*Q +36.0DQ*Q*R3 +22 . 0D0*R3*R3 -35.0 0001 26_3 5_ 
1 DO*F*F ) 00012640 


7.5D0 *(G*F)**2 * ( 3. 0D0*Q +4.\0D0*R3) 


00012645 



000057 

C(10) = 13.12500 *G *<G*F> **2 

00012650 

000058 

Ul = 

C(l)+C(2)+C(3)+C(4)+C(5)+C(6) 

00012655 

000059 

U2 = 

C<7)+C(8)+C(9)+C<10) 

00012660 

000060 

DPZ= 

P 1**2 *RHO /6 • ODO* ( U1+U2 ) -Wl*S*S 

00012665 

000061 

DPX= 

PI**2 *RHO /6 • ODO* < U1-U2 ) 

00012670 

000062 

CALL 

DELTA 

00012675 

000063 

RETURN 

000126R0 

000064 

END 


00012685 
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000001 

C206FOR 






00012690 



000002 

C SUBROUTINE FOR206 - HOLLOW TAPERED TORUS 



00012695 



000003 

SUBROUTINE FOR206 





00012700 



000004 

IMPLICIT REAL*8 

{ A-H»0- 

Z) 




00012705 



000005 

DIMENSION 

HOL ( 12) 

' W(100) 

, YB ( I 00 ) * 

XRC100) . 

ZB ( 100 ) t 

DY00012710 



000006 

1<100> r DX ( 100 ) > 

DZ(IOO) 

> SWY(IOO)# SWX(100>» SWZ<100)> SWYS (100) 

t 00012715 



000007 

2SWXS ( 100 ) t SWZS<100)» SOY(IOO)# 

SDX(IOO) * 

SDZ(IOO) 


00012720 



000000 

COMMON PI 


( 




00012725 



000009 

COMMON W1 

t YBR 

» XBR 

» ZPR 

> OY1 

, DX1 

00012730 



000010 

COMMON DZ1 

, DPY 

. DPX 

. DPZ 

* S 

» T 

00012735 



000011 

COMMON J 

t N 

» K 

t M 

* Y 

, X 

00012740 



000012 

COMMON Z 

i RHO 

f A1 

* B1 

t Cl 

» A2 

00012745 



000013 

COMMON B2 

t CZ 

* R1 

* R2 

* R3 

, H 

00012750 



000014 

COMMON B 

, A 

» AL 

» WT 

t YBT 

t XBT 

00012755 



000015 

COMMON zbt 

f DYT 

f OXT 

» DZT 

> SWYT 

# SWXT 

00012760 



000016 

COMMON SWZT 

» SWYST 

f SWXST 

* SWZST 

» SDYT 

t SDXT 

00012765 



000017 

COMMON SDZT 

i HOL 

» w 

* YB 

» XB 

» ZB 

00012770 



000018 

COMMON OY 

» DX 

» DZ 

» SWY 

> SWX 

» swz 

00012775 



000019 

COMMON SWYS 

r SWXS 

» SWZS 

# SOY 

, SDX 

f SDZ 

00012780 



000020 

000021 

COMMON 01 
COMMON CM1 

r D2 
r CM2 

» D3 
» CM3 

* CL1 
» CN1 

> CL2 
» CN2 

» CL3 
r CN3 

00012785 

00012790 



000022 

COMMON A3 

» B3 

, C3 

* CL1S 

» CL2S 

» CL3S 

00012795 



000023 

000024 

COMMON CM1S 
COMMON E 

r CM2S 

r V 

r CM3S 
» PY 

► CN1S 
* PX 

* CN2S 

# PZ 

» CN3S 

00012800 

00012805 



000025 

NN=N 






00012810 



000026 

N=206 






00012815 



000027 

ER1=R1 






00012820 



000028 

ER2=R2 






00012825 



000029 

ER3=R3 






00012830 



000030 

CALL FOR205 






00012635 



000031 

WC=W1 






00012840 



000032 

YC=YBR 






00012845 



000033 

XC=XBR 






00012850 



000034 

ZC=ZBR 






00012855 



000035 

000036 

CY=UY1 

CX=DX1 






00012860 

00012865 



000037 

CZ=DZ1 






00012870 



000038 

Rl-Rl+B 






00012875 



000039 

R2=R2-8 






00012880 



000040 

R3=R3-B 






00012885 



000041 

000042 

RHO--RHO 
CALL FOR205 






00012890 

00012895 



000043 

WF=W1 






00012900 



000044 

YF=YBR 


• 




00012905 



000045 

XF=XBR 






00012910 



000046 

ZF=ZBR 






00012915 



000047 

fy=dyi 






00012920 



000048 

FX=DX1 






00012925 

. 


000049 

FZ=DZ1 






00012930 



000050 

C RESTORE INPUT 





00012935 



000051 

R1=ER1 






00012940 


61 

0C0052 

000053 

000054 

R2=ER2 

R3=ER3 

RHO=-RHO 



\ 



00012945 

00012950 

00012955 



000055 

N=NN 



< 



00012960 



000056 

C 



1 



00012965 




000057 

C COMBINE 

PARTS 



00012970 

000058 

Wl-WC+WF 




00012975 

000059 

YM=WC*YC +WF*YF 



000129B0 

000060 

XM=WC*XC +WF*XF 



000129B5 

000061 

2M=WC*ZC +WF+ZF 



00012990 

000062 

YM2=WC*YC**2 

+WF*YF**2 


00012995 

000063 

XM2=WC*XC**2 

+WF*XF**2 


00013000 

000064 

ZM2=WC*ZC**2 

+WF*ZF**2 


00013005 

000065 

YD= CY+FY 




00013010 

000066 

XD- CX+FX 




00013015 

000067 

ZD= CZ+FZ 




00013020 

C00068 

YBR= YM / W1 




00013025 

000069 

XBR= XM / W1 




00013030 

000070 

ZBR= ZM / W1 




00013035 

000071 

DY1= XM2 +ZM2 

+YD 

-Wl* ( XBR**2 

+ZBR**2> 

00013040 

000072 

DX1= YM2 +ZM2 

+XD 

-Wl* ( YRR**2 

+ZF!R**2) 

00013045 

000073 

DZ1= YM2 +XM2 

+ZD 

-W1*(YBR**2 

+XBR**2 > 

00013050 

000074 

RETURN 




00013055 

000075 

END . _ 




00013060 


U ELT F0R207, 1.710420. 60474 



000001 

000002 

000003 

C207FOR 

C FORMULA 207 - SECTOR OF HOLLOW TAPERED 

SUBROUTINE F0R207 

DISC 


00013065 
0001 3070 
00013075 


000004 


IMPLICIT REAL*8 (A-H.O-Z) 



00013000 


000005 


DIMENSION HOL ( 12 ) » W(100>. YB(100># 

XB(IOO) . 

ZRdOO) . 

DY00013085 


000006 


1(100) » DX ( 100 ) . DZ(IOO). SWY ( 100 ) » SWX(IOO). SWZ(lOO). SWYS(IOO). 00013090 


000007 


2SWXS ( 100 ) » SWZSUOO). SDY ( 100) » SDX<100). 

SDZ(IOO) 


00013095 


000008 


common pi 



00013100 


000009 


COMMON W1 * Y8R » XBR * ZRR 

. DY 1 

_i_ DX1 

00013105 


000010 


COMMON DZ1 » DPY * DPX * DPZ 

. S 

. T 

00013110 


000011 


COMMON J , N . K # M 

. Y 

. X 

00013115 


000012 


COMMON Z . RHO . A1 . B1 

. Cl 

. A2 

00013120 


000013 


COMMON B2 . C2 * R1 . R2 

. R3 

. H 

00013125 


000014 


COMMON B .A , AL # WT 

r YBT 

'. XBT 

00013130 


000015 


COMMON ZBT . DYT . DXT » DZT 

. SWYT 

. SWXT 

00013135 


000016 


COMMON SWZT . SWYST , SWXST . SWZST 

. SDYT 

» SDXT 

00013140 


000017 


COMMON SDZT . HOL . W » YB 

. XB 

. ZB 

00013145 


000018 


COMMON DY * DX . DZ . SWY 

. SWX 

. SWZ 

00013150 


000019 


COMMON SWYS . SWXS , SWZS . SDY 

. SDX 

. SDZ 

00013155 


000020 


COMMON D1 .02 .03 . CLl 

» CL2 

. CL3 

00013160 


000021 


COMMON CM1 . CM2 . CM3 . CN1 

. CN2 

. CN3 

00013165 


000022 


COMMON A3 . B3 , C3 . CL IS 

. CL2S 

. CL3S 

00013170 


000023 


COMMON CM1S . CM2S . CM3S . CNIS 

. CN2S 

. CN3S 

000)3175 


000024 


COMMON E .V . PY , PX 

► PZ 


00013180 


000025 

C 

PRELIMINARY COMPUTATIONS 



00013185 


000026 


AL=AL*PI/180.0DO 



0001 31^0 


000027 


CIA = R-A 



00013195 


00002B 


C2A = R2+R1 



00013200 


000029 


C3=R1-R2 



00013205 


000030 


0 = C1A/C3 



00013210 


000031 


C4=B+Q *R2 



00013215 


000032 


C5= Rl**2 +R2**2 



00013220 


000033 


C6= C5 + R1*R2 



00013225 


000034 

C 

volume and weight 



00013230 


000035 


V = C3/3.D0 *AL * ( 3 • D0*C2 A*C4 -2.D0*Q *C6> 


00013235 


000036 


Wl= RHO *V 



00013240 


000037 

c 

C.G. AND DIRECTION COSINES 



00013245 


000038 


S = C3/6.D0*DSIN(AL) / V *(4.00*C4*C6 -3. 

00*Q*C2A*C5) 

00013250 


000039 


CALL DIRC 



00013255 


000040 


T1=.5D0*B 



00013260 


000041 


T2=.5D0*A 



00013265 


000042 


Pl= T1-T2 



00013270 


000043 


E-(R1-R2)/P1 



00013275 


000044 


IJ=R2+E*T1 



00013280 


000045 


P2=T1*T1 -T2*T2 



00013285 


000046 


P3= Tl**3 -T2**3 



00013290 


000047 


P4= Tl**4 -T2**4 



00013295 


000048 


P5= Tl**5 -T2**5 



00013300 


000049 


C=DSIN(AL)*DCOS(AL) 



00013305 


000050 


Fl=2.0D0/3.OD0*(Rl*Rl*T2**3 -R2*R2*T1 **3 > 



00013310 


000051 


F2= . 5D0*(R1**4*T2 -R2**4*T1) 



00013315 


000052 


F3=< 10.0D0*U*U*P3 -15.0D0*U*E*P4 46. ODO*E*E*P5) /15.0D0 

00013320 


000053 


F4=.1D0*(5.0D0*U**4*P1 -10.0D0*U**3*E*P2 

410.0D0*U*U*E*E*P3 

“5.00000013325 

0 - 

000054 


1*U*E+*3*P4 +E**4*P5) 



00013330 

000055 


F5= RHO * (F14F3) 



00013335 


000056 


F6= RHO * ( F2+F4) 



00013340 



0000 57 

000058 

000059 

000060 

000061 

000062 

000063 

000064 


F7= .2 D0*P1* (Rl**4 +R1**3*R2 +R1*R1*R2*R? +R1*R2**3 +R2**4) 

C MOMENTS OF INERTIA 

DPZ= AL* (F5+F6) +C*F6 -W1*S*S 

qPX=_AL*(F5_+F6)_ -C*F_6 

DPY= RHO*AL*(2.0D0*F2 +F7) -W1*S*S 
CALL DELTA 

R E TURN 

END 


00013345 

00013350 

00013355 

00013360 

00013365 

00013370 

00.013375 

00013380 



0 ELT FCR208, 1.710420. 60476 


000001 
000002 
00 00 03 ^ 
000004 
000005 

oogoo6_ 
000007 
000008 
0000 09 
0000 10 
000011 
000012 


C206FOR 


00013385 


000025 
000026 
000027_ 
000028 
000029 
_00 0030_ 
000031 
000032 
000033_ 
000034 
000035 
000036 
000037" 
000038 
_000039_ 
000040 
000041 
000042_ 
000043 
000044 
_0 0 0 0 4 5_ 
000046 
000047 
000048 
000049" 
000050 
000051 


000052 
000053 

000054^ 

WT 000055 
000056 




FOR208 - SECTOR OF WEDGE OF REVOLUTION 00013390 

SUBROUTINE FOR208 00013395 

IMPLICIT REAL*8~ ( A-H . 0-2 ) 00013400 

DIMENSION HOL ( 12 ) . W(100). YB(100). XBtlOO). ZBC100). DY00013405 

1(100). D X(IOO) . DZ(IQO). SWY(IOO). SWX(IQO ) . SWZ (IOO). SWYS(IOO). 00013410 
2SWXS ( 100 ) » SWZS(IOO). SDY(iOO). 

COMMON PI 


SDX(IOO). SDZ(IOO) 


COMMON Wl 


COMMON 

COMMON 

COMMON 


DZ1 

J 

Z 


000013 

COMMON 

B2 

. C2 

. Ri 

* R2 

. R3 

000014 

common 

B 

. A 

. AL 

. WT 

. YBT 

000015 

COMMON 

ZBT 

. DYT 

. DXT 

. DZT 

. SWYT 

000016 

COMMON 

SWZT 

. SWYST 

. SWXST 

. SWZST 

. SDYT 

000017 

common 

SDZT 

. HOL 

. w 

> yb 

» XB 

000016 

COMMON 

DY 

. DX 

. DZ 

# SWI 

» SWX 

000019 

COMMON 

SWYS 

. SWXS 

. SWZS 

. SDY 

. SDX 

000020 . 

COMMON 

D1 

. D2 

. D3 

. CL1 

# CL2 

000021 

COMMON 

CM1 

. CM2 

. CM3 

. CM1 

» CN2 

000022 

COMMON 

A3 

. B3 

. C3 

.• CL1S 

» CL2S 

000023 

COMMON 

CM1S 

. CM2S 

. CM3S 

. CN1S 

. CN2S 

000024 

COMMON 

E 

. V 

. PY 

. PX 

J..P.2 


YBR 


DPY 

N 

RHO 


XBR_ 

DPX 

K 

A 1 


ZBR 


DPZ 

M 

81 


DY1 


S 

Y 

Cl 


DX1 


T 

X 

A2 


H 

XBT 

SWXT 


SDXT 

ZB 

_s.wz 

SDZ 

CL3 

_C.N3_ 

CL3S 

CN3S 


AL= AL *PI /180 . ODO 
CIA = R1-R2 

C2A_ - R1+R2 

C3= AL *B 
C4= Rl* R2 

E=DSIN(AL) / <2.0D0*AL) 


C5=DSIN(2.0D0*AL) /<2.000*AL> 

C6= 2« 0D0*R1**2 -R2**2 

C7= RHO *AL *B 


C8= R2 *R1 *R1 
C9= 2 • 0D0*R1 -3.0D0*R2 
VOLUME AND WEIGHT 
VL = CIA *C3 /3.00* (C2.4+R1 ) 

Wl= RHO *VL 

C.G. AND DI RECTIO N COSINES 

V = E * (Rl**3 * (C1A+C9) +R2**4 ) / (Rl**2 *C9 +R2**3) 
S= .25D0*B*(C6-2.0D0*C4 +R1*R1> /(C6-C4) 

_T=Qi_ODO ______ 

CALL SPED I R 
PRODUCTS 
PX=0.000 


OF INERTIA 


PY=O.ODO 

PZ= RHO /30 . 0D0*B**2 /Cl A*DSIN ( AL ) * 

11 +R 1 *R2+R2*R2) ) -W1 *V*S 

DELTA VALUES 

F=.1D0 *C7/C1A*(R1**4 *(4.0D0*R1 -5.0D0+R2) 
__G_ = F * ( . 5 D 0 *( 1_. D O-C 5 ) +B* B_/J 3 . DO*C 1 A*C 1M 
1 ( 3 . DO *C 1 A ) 

P= G +C5 *F 
DPY =F-W1*V*V 
' C'PX r 
DPZ = 


00013415 
00013420 
_000 13425 
00013430 
00013435 
00013440 
00013445 
00013450 
00013455 
00013460 
00013465 
_000 13470 
00013475 
00013480 
_000) 3485 
00013490 
0001.3495 
_000 13500 
00013505 
00013510 
_0001351 5 
00013520 
00013525 
_00013530 
00013535 
00013540 
_00013545_ 
00013550 
00013555 
JD0013560 
00013565 
00013570 
00013575 


(3.0DO*R1**3 *C9 +R2*R2 


+R2**5 ) 

) -C7 *B*B*C8 


\ 


G -W1*S*S 
P -Wl *(V*V 


+s*s> 


00013580 

00013585 

00013590 

00013595 

00013600 

00013605 

0001 3610 

*(R1*R 000 13615 

00013620 

" 00013625 
00013630 

00013635 

00013640 

00013645 

00013650 

00013655 

00013660 


1 





(3 ELT FOR3.1»7l0420» 60477 


000001 

C3F0R 







00002755 

000002 

SUBROUTINE F0R3 






00002760 

000003 

C 

FORMULA 

3 - SOLID 

SPHERE 




00002765 

000004 

IMPLICIT REAL*8 

( A-H f O-Z ) 




00002770 

000005 

dimension 

HOL ( 12) # 

W(100> F 

YB(IOO) f 

XB (100) f 

ZB ( 100 ) f 

DY00002775 

000006 

1(100) # 

DX(IOO) f 

DZ(IOO) , 

SWY(IOO) 

f SWX(100)f SWZ(100)f SWYS (100) 

f 00002780 

000007 

2SWXS ( 100 ) » SWZSUOO). SDY ( 100 ) f SDX(100)f 

SDZ(IOO) 


00002785 

000008 

common 

PI 






00002790 

000009 

common 

Wl 

f YBR 

f XBR 

f ZBR 

f DY 1 

f DX1 

00002795 

000010 

COMMON 

DZ1 

► DPY 

f DPX 

f DPZ 

F S 

F T 

00002800 

000011 

COMMON 

J 

f N 

F K 

F M 

F Y 

F X 

00002805 

000012 

COMMON 

Z 

* RHO 

F A1 

F B 1 

F Cl 

f A2 

0000281 0 

000013 

common 

B2 

f C2 

F R1 

f R2 

f R3 

F H 

00002815 

000014 

COMMON 

B 

* A 

f AL 

f WT 

f YRT 

F XBT 

00002820 

000015 

COMMON 

ZBT 

► DYT 

f DXT 

F DZT 

f SWYT 

F SWXT 

00002825 

000016 

COMMON 

SWZT 

f SWYST 

F SWXST 

f SWZST 

f SDYT 

f SDXT 

00002830 

000017 

common 

SDZT 

f HOL 

F W 

f YB 

f XB 

f ZB 

00002835 

000018 

COMMON 

DY 

. DX 

f DZ 

f SWY 

f SWX 

_F swz 

00002B<*0 

000019 

COMMON 

SWYS 

f SWXS 

F SWZS 

f SDY 

f SOX 

F SDZ 

00002845 

00G020 

COMMON 

D1 

r D2 

F D3 

f CL1 

f CL2 

f CL3 

00002850 

000021 

COMMON 

CM1 

f CM2 

f CM3 

f CM1 

f CN2 

f CN3 

00002855 

000022 

COMMON 

A3 

f B3 

» C3 

F CHS 

f CL2S 

f CL3S 

00002860 

000023 

COMMON 

CM1S 

» CM2S 

f CM3S 

f CN1S 

f CN2S 

f CN3S 

00002865 

000024 

COMMON 

E 

F V 

F PY 

F PX 

F PZ 


00002870 

000025 

Wl= 4. 

ODO/3. ODO+PI *RHO 

* Rl**3 




00002875 

000026 

YBR=Y 







00002880 

000027 

XBR=X 







00002885 

000028 

ZBR=Z 







00002890 

000029 

DY1= • 4D0 *W1 * 

Rl**2 





00002895 

000030 

0X1= DY 1 






00002900 

000031 

DZ1= DY1 






00002905 

000032 

RETURN 







00002910 

000033 

END 







00002915 



Moore Busir.ei* Fo.i 


n 


Q ELT FOR5»lr7l0420> 60480 


000001 

000002 

000003 


000025 
000026 
_000027_ 
000028 
000029 
000030 
000031 
000032 
000033^ 
000034 
000035 
000036 
00 0037 
000030 
000039 


000040 

000041 

000042 


C5F0R 


SUBROUTINE FOR5 

FORMULA 5 - INNER HALF-TORUS » 


SOLID 


00003095 

00003100 

00003105 


000004 

IMPLICIT REAL*8 (A-HrO- 

Z) 




00003110 

000005 

dimension 

HOL (12) 

• W(100) 

. YB ( 1 00 ) > 

XB(IOO) t 

ZB ( 100) t 

DY000031 15 

000006 

1(100) » 

DX(100> 

» DZ(100) 

• SWY(IOO), SWX(IOO), SWZ(IOO), SWYS(IOO) 

# 00003120 

000007 

2SWXS ( 100 ) > SWZSQOO), SDY ( 100 ) • 

SDX(IOO) . 

SDZ ( 100 ) 


00003125 

000008 

COMMON 

PI 






00003130 

000009 

COMMON 

Wl 

# YBR 

1 XBR 

* ZRR 

r DY1 

r DX1 

00003135 

000010 

COMMON 

DZ1 

» DPY 

* DPX 

» npz 

* S 

, T 

00003140 

000011 

common 

J 

• N 

, K 

» H 

* Y 

• X 

00003145 

000012 

COMMON 

Z 

» RHO 

# A1 

» ru 

* Cl 

» A2 

00003150 

000013 

COMMON 

B2 

* C2 

> R1 

t r-2 

t R3 

t H 

00003155 

000014 

COMMON 

B 

, A 

# AL 

* WT 

t YBT 

' XBT 

00003160 

000015 

COMMON 

ZBT 

# OYT 

* OXT 

. DZT 

* SWYI 

, SWXT 

00003165 

000016 

COMMON 

SWZT 

r SWYST 

, SWXST 

* SWZST 

• SDYT 

» SDXT 

00003170 

0C0017 

COMMON 

SDZT 

t HOL 

, VI 

* YB 

t XB 

f ZB 

00003175 

000018 

COMMON 

DY 

» DX 

_ r DZ 

7-..SWY 

r SWX 

t SWZ 

00003180 

000019 

COMMON 

SWYS 

. SWXS 

* SWZS 

f SOY 

* SOX 

. SDZ 

00003185 

000020 

COMMON 

D1 

t D2 

, D3 

# CL 1 

# CL2 

» CL3 

00003190 

000021 

COMMON 

CM1 

» CM2 

r CM3 

* CN1 

» CN2 

, CN3 

00003195 

000022 

common 

A3 

» B3 

* C3 

* CHS 

» CL2S 

, CL3S 

00003200 

000023 

COMMON 

CM1S 

» CM2S 

, CM3S 

# CU1S 

r CN2S 

, CN3S 

00003205 

000024 

COMMON 

E 

» V 

. PY 

. PX 

. PZ 


00003210 


ER3=R3 
R3=0.0D0 
CALL F0R2 


WC= Wl 
CY=DY1 
CX=DX1 
CZ=D2l 
RHO= -RHO 
CALL F0R4 


Wl= WC +W1 
DY1 = CY +DY1 
0X1= CX+DX1 
021= CZ +DZ1 
RESTORE INPUT 
RHO= -RHO 


R3= ER3 

RETURN 

END 


00003215 

00003220 

00003225_ 

000032.30 

00003235 

00003240_ 

00003245 

00003250 

00003255 

00003260' 

00003265 

00003270_ 

00003275 

00003280 

00 003285 

00003290 

00003295 

00003300 


(X 



0 ELT FOR500»1»710420, 60481 


000001 C 50 OF OR 00013680 
000002 SUBROUTINE FOR500 00013685 
00 0003 C FORMU LA 50 0 - M I SC . _SH APES_ 00013690 


000004 IMPLICIT REAL*8 (A-HtO-Z) 00013695 

000005 DIMENSION H0L(12), W(100)* YB<100), XB(IOO)* ZBdOOd DY00013700 

0 0 0 0_0 6 1_( 1 0 0 ) r DX(100)> D 2 ( 1 00 ) > _S W V ( 100 ), S W XdO 0). SWZdOO), SWYSdOO) , 00013705 


000007 

2SWXS ( 100 ) , SWZSdOO), 

SDY (100 ) * SDX(IOO ) t 

SDZ(IOO) 


00013710 


000008 

COMMON 

PI 






00013715 


000009 

COMMON 

W1 

, YBR 

• XBR 

, ZBR 

> DY1 

, DX1 

00013720 


000010 

COMMON 

DZ1 

» DPY 

, DPX 

, DPZ 

» s 

. T 

00013725 


000011 

COMMON 

J 

, N 

9 K 

9 M 

> Y 

, X 

00013730 


000012 

COMMON 

Z 

# RHO 

, A1 

» B 1 

» Cl 

» A2 

00013735 


000013 

COMMON 

82 

* C2 

, R1 

* R2 

» R3 

, H 

00013740 


000014 

COMMON 

B 

» A 

, AL 

* WT 

# YBT 

, XBT 

00013745 


000015 

COMMON 

ZBT 

» DYT 

, DXT 

> DZT 

, SWYT 

i SWXT 

00013750 


000016 

COMMON 

SWZT 

, swyst 

, SWXST 

. SWZST 

* SDYT 

, SDXT 

00013755 


000017 

COMMON 

SDZT 

, HOL 

, W 

* YB 

> XB 

t ZB 

00013760 


000018 

COMMON 

DY 

, DX 

, DZ 

* SWY 

» swx 

, SWZ 

00013765 


000019 

COMMON 

SWYS 

> SWXS 

» swzs 

» SDY 

* SDX 

► SDZ 

00013770 


000020 

COMMON 

D1 

, D2 

, D3 

. CL1 

, CL2 

» CL3 

00013775 


000021 

COMMON 

CMl 

, CM2 

. CM3 

# CNl 

f CN2 

, CN3 

000137R0 


000022 

COMMON 

A3 

, B3 

. C3 

# CHS 

> CL2S 

* CL3S 

00013785 


000023 

COMMON 

CM1S 

* CM2S 

, CM3S 

. CN1S 

» CN2S 

» CN3S 

00013790 


000024 

COMMON 

E 

* V 

* PY 

. PX 

* PZ 


00013795 


OOOC25 

5=0. ODO 







00013800 


000026 

Y8R=Y 







00013805 


000027 

XBR=X 







00013810 


000028 

ZBR=Z 







00013815 


000029 

RETURN 







00013820 


000030 

END 







00013825 




Moore 8ui»n«s Fcrn:». (r>c. 


Q 

EL.T F0R6» 1 r 

710420 » 60482 








000001 

C6F0R 







00003305 


000002 


SUBROUTINE F0R6 






00003310 


000003 

C 

FORMULA 6 - INNER HALF > TOROIDAL SHELL 



00003315 


000004 


IMPLICIT REAL*8 

( A-H.O- 

Z) 




00003320 


000005 


dimension 

HOL ( 12) 

t W(OLOO) * 

YB(IOO) » 

XB(100) » 

ZB(100 ) • 

DY00003325 


000006 


1(100) r 

DX (100) t 

DZ(IOO) 

t SWY(IOO) 

t SWX<100)» SWZ(100)» SWYS(IOO) 

t 00003330 


000007 


2SWXS ( 100 ) t SWZSQOO), SDY ( 100 ) » SDX(IOO), 

SDZ(IOO) 


00003335 


000008 


COMMON 

PI 






00003340 


000009 


COMMON 

Wl 

» YBR 

t XGR 

# ZRR 

i DY1 

» DX1 

00003345 


000010 


COMMON 

DZ1 

» DPY 

r DPX 

* DPZ 

> S 

r T 

00003350 


000011 


COMMON 

J 

» N 

# K 

t M 

* Y 

» X 

00003355 


000012 


COMMON 

Z 

r RHO 

f A 1 

* B1 

» Cl 

r A2 

00003360 


000013 


COMMON 

B2 

f C2 

, R1 

» R2 

t R3 

» H 

00003365 


000014 


COMMON 

0 

* A 

» AL 

* WT 

» YBT 

r XBT 

00003370 


000015 


COMMON 

ZBT 

. dyt 

. DXT 

» DZT 

> SWYJ 

r SWXT 

00003375 


000016 


COMMON 

SWZT 

. swyst 

» SWXST 

* SWZST 

* SDYT 

• SDXT 

00003380 


000017 


common 

SDZT 

» HOL 

r W 

* YB 

* XB 

» ZB 

00003385 


000018 


COMMON 

DY 

» DX 

. DZ 

* SW.Y 

t swx 

r SWZ 

00003390 


000019 


COMMON 

SWYS 

r SWXS 

> swzs 

t SDY 

t SDX 

» SDZ 

00003395 


000020 


COMMON 

D1 

. D2 

. D3 

» CL1 

• CL2 

r CL3 

00003400 


000021 


COMMON 

CMl 

. CM2 

» CM3 

» CMl 

» CN2 

, CN3 

00003405 


000022 


COMMON 

A3 

. 03 

. C3 

» CL1S 

# CL2S 

* CL3S 

00003410 


000023 


COMMON 

CM1S 

» CM2S 

* CM3S 

. CN1S 

r CN2S 

, CN3S 

00003415 


000024 


COMMON 

E 

. V 

» PY 

* PX 

» PZ 


00003420 


000025 


nn=n 







00003425 

, 

000026 


N=6 







00003430 


000027 


ER2=R2 







00003435 


000028 


CALL FOR5 






00003440 


000029 


WC=W1 







00003445 


000030 


CY=DY1 







00003480 


000031 


CX=DX1 







00003455 


000032 


CZ=DZ1 







00003460 


000033 


RHO - - 

RHO 






00003465 


000034 


R2=R3 







00003470 


000035 


CALL FOR5 






00003475 


000036 


Wl= WC+W1 






00003480 


000037 


DY1= CY+DY1 






00003485 


000038 


DX1= CX+DX1 






00003490 


000039 


PZ1 = CZ+DZ1 






00003495 


000040 

C 

RESTORE 

INPUT 





i 

00003500 


000041 


R2=ER2 







00003505 


000042 


RHO = - 

RHO 






00003510 


000043 


N=NN 







00003515 


000044 


RETURN 







00003520 


000045 


END 







00003525 



•O __ 

© \ 



0 ELT 

F0R7 » 1 » 710420 » 60484 








000001 

C7F0R 






00003530 


000002 

SUBROUTINE F0R7 






00003535 


000003 

C FORMULA 7 - 

OUTER HALF 

. TOROIDAL SHELL 



00003540 


000004 

IMPLICIT REAL*8 

(A-H.O-25 





00003545 


000005 

DIMENSION 

HOL ( 12 ) # 

W(100) . 

YB(IOO) i 

XB(IOO) . 

ZB(100) . 

DY00003550 


000006 

1(100). DX(IOO). 

DZ(100) . 

SWY(IOO) 

. SWX(IOO). SWZ(IOO). SWYS(IOO) 

► 00003555 


000007 

2SWXSU00). SWZS(IOO). SDY(IOO). SDX(IOO). 

SDZ(IOO) 


00003560 


000008 

COMMON PI 






00003565 


000009 

COMMON Wl 

. YBR . 

XBR 

» ZRR 

» DY 1 

. DX1 

00003570 


000010 

COMMON DZ1 

. DPY . 

DPX 

. DPZ 

» S 

. T 

00003575 


000011 

COMMON J 

. N . 

K 

. M 

. Y 

. X 

000035R0 


000012 

COMMON Z 

. RHO . 

A1 

. B1 

» Cl 

. A2 

00003585 


000013 

COMMON 32 

. C2 . 

R1 

. R2 

. R3 

, H 

00003590 


000014 

COMMON B 

. A . 

AL 

. WT 

. YBT 

. XBT 

00003595 


000015 

COMMON ZBT 

. DYT . 

DXT 

» DZT 

. SWYT 

. SWXT 

00003600 


000016 

COMMON SWZT 

. SWYST , 

SWXST 

. SWZST 

. SDYT 

. SDXT 

00003605 


000017 

COMMON SOZT 

. HOL > 

w 

» YR 

t XB 

. ZB 

00003610 


ooooie 

COMMON DY 

t DX . 

DZ 

. SWY 

» swx 

. SWZ 

00003635 


000019- 

COMMON SWY5 

. swxs . 

swzs 

. SOY 

. SDX 

. SDZ 

00003620 


000020 

COMMON D1 

. 02 . 

03 

. CL1 

. CL2 

. CL3 

00003625 


000021 

COMMON CM1 

. CM2 . 

CM3 

. CNl 

» CM2 

. CN3 

00003630 


000022 

COMMON A3 

. G3 » 

C3 

. CL1S 

» CL2S 

. CL3S 

00003635 


000023 

COMMON CM1S 

. CM2S , 

CM3S 

i CNlS 

. CN2S 

. CN3S 

00003640 


000024 

COMMON E 

. V . 

PY 

. PX 

. PZ 


00003645 


000025 

MN=N 






00003650 


000026 

N=7 






00003655 


000027 

ER2=R2 






00003660 


00002e 

CALL F0R4 






00003665 


000029 

WC=W1 






00003670 


000030 

CY-DY1 






00003675 


000031 

CX=UX1 






00003680 


000032 

CZ=DZ1 






00003685 


000033 

RHO = -RHO 






000036 Q 0 


000034 

R2=R3 






00003695 


000035 

CALL F0R4 






00003700 


000036 

Wl=wc+Wl 






00003705 


000037 

DY1= CY+DY1 






00003710 


000038 

0X1= CX+DX1 






00003715 


000039 

DZ1= CZ+DZ1 






00003720 


000040 

C RESTORE INPUT 





00003725 


000041 

R2= ER2 






00003730 


000042 

RHO= -RHO 






00003735 


000043 

N=NN 

■ 





00003740 


000044 

RETURN 






00003745 


000045 

end 






00003750 






\ 






*5 


\ 



0 ELT MAIN * 1 * 710615 * 33310 


000001 

000002 

000003 

E 1530 1 
E15301 







000004 

E15301 







000005 

C 



E15301 



00000000 


000006 

c 






00000005 


000007 

c 






00000010 


000008 

c 






00000015 


000009 

c 

placed 

ON PRODUCTION 17 OCTOBER 1967 




00000020 


000010 

c 






00000025 


000011 

COSMIC NO. 

400 




00000030 


000012 

C 

WEIGHT 

CENTER OF GRAVITY AND MOMENT OF INERTIA 



00000035 


000013 

CMP062 





00000040 


000014 

C 

PROPOSAL WEIGHT * CG* MI COMPUTATION PROGRAM 



00000045 


000015 

C 

DECK 7R-062 2-7-62 R. HUFF 596-111 




00000050 


000016 

c 






00000055 


000017 


IMPLICIT REAL*8 (A-H.O-Z) 




00000060 


000018 


DIMENSION HOL ( 12 ) , W ( 100 > *YB < 1 00 > , 

XB(100) * 

ZR(lOO) * _ . 

DY00000065 


000019 


1(100) » 

DX(IOO). DZ(IOO)* SWY(IOO)* SWX(IOO)* SWZ(IOO) 

* SWYS ( 100 ) 

* 00000070 


000020 


2SWXS ( 100 ) * SWZS ( 100 ) * SDY ( 100 ) * SDX(lOO)* 

SDZ ( 100 ) 



00000075 


000021 


COMMON 

PI 




00000080 


000022 


COMMON 

Wl . YBR , XBR * 28R 

* DY 1 

r 

DX1 

00000085 


000023 


COMMON 

DZ1 * DPY , DPX . DPZ 

* S 

9 

T 

00000050 


000024 


COMMON 

J 9 N 9 K 9 M 

* Y 

f 

X 

00000095 


000025 


COMMON 

Z * RHO * A1 * B1 

* Cl 

9 

A2 

00000100 


000026 


COMMON 

B2 * C2 * R1 * R2 

* R3 

t 

H 

00000105 


000027 


COMMON 

B * A , AL . WT 

* YBT 

9 

XBT 

00000110 

. 

000028 


COMMON 

ZBT » DYT , OXT * D?T 

* SWYT 

9 

SWXT 

00000115 


000029 


COMMON 

SWZT * SWYST * SWXST * SwZST 

* SDYT 

t 

SDXT 

00000120 


000030 


COMMON 

SDZT * HOL * W » YP 

* XB 

9 

ZB 

00000125 


000031 


COMMON 

DY * DX * DZ . SWY 

* SWX 

9 

SWZ 

00000130 


000032 


COMMON 

SWYS * SWXS * SWZS » SDY 

* SDX 

9 

SDZ 

00000135 


000033 


COMMON 

D1 » D2 * D3 * CL1 

* CL2 

9 

CL3 

00000140 


000034 


COMMON 

CMl . CM2 * CM3 * CNl 

* CN2 

9 

CN3 

00000145 


000035 


COMMON 

A3 * B3 * C3 * CLlS 

* CL2S 

9 

CL3S 

00000150 


000036 


COMMON 

CM1S » CM2S * CM3S * CMlS 

* CN2S 

9 

CN3S 

oooooi^s 


000037 


COMMON 

E * V * PY . PX 

* PZ 



00000160 


000038 


200 READ (5*505»END=1000) (HOL(I)* 1=1*12) 




00000165 


000039 


WRITE 

(6*505) (HOL<I) * 1=1*12) 




00000170 


000040 


WRITE 

(6*55) 




00000175 


000041 

c 

CLEAR 

COMMON 




00000180 


000042 


PI 

= 0.0D0 




00000*185 


000043 


Wl 

= 0.0D0 



i 

00000190 


000044 


YBR 

= 0.0D0 




00000195 


00U045 


XBR 

= 0.0D0 




00000200 


000046 

, 

2BR 

= 0.000 




00000205 


000047 


DY1 

= 0.000 




00000210 


000048 


DX1 

= 0.0D0 




00000215 


000049 


DZ1 

= 0.0D0 




00000220 

' — _ 

000050 


dpy 

= 0.0D0 




00000225 


>0000051 


DPX 

= 0.0D0 




00000230 


000052 


DPZ 

= 0.000 \ 




00000235 


000053 


S 

= 0.0D0 ' 




00000240 


000054 


T 

= 0.0D0 




00000245 


000055 


J 

= O.ODO 




00000250 


000056 


N 

= O.ODO 




00000255 



\ 



000057 

K = 0.0D0 


00000260 

000058 

M - O.ODO 


00000265 

000059 

Y = O.ODO 


00000270 

000060 

X = O.ODO 


00000275 

000061 

Z = O.ODO 


00000280 

000062 

RHO = O.ODO 


00000285 

000063 

Al = O.ODO 


00000290 

000064 

Bl = O.ODO 


00000295 

000065 

Cl = O.ODO 


00000300 

000066 

A2 = O.ODO 


00000305 

000067 

82 = O.ODO 


00000310 

000068 

C2 = O.ODO 


00000315 

000069 

Rl = O.ODO 


00000320 

000070 

R2 = O.ODO 


00000325 

000071 

R3 = O.ODO 


00000330 

000072 

H = O.ODO 


00000335 

000073 

B = O.ODO 


00000340 

000074 

A = 0.000 


00000345 

000075 

AL = O.ODO 


00000360 

000076 

WT = O.ODO 


00000355 

000077 

Y3T = O.ODO 


00000360 

000073 

XBT = O.ODO 


00000365 

000079 

ZDT = O.ODO 


00000370 

000080 

DYT = O.ODO 


00000375 

000081 

DZT = O.ODO 


00000380 

000082 

SWYT = O.ODO 


00000385 

000083 

SWXT = O.ODO 


00000390 

000084 

SWZT = O.ODO 


000n03Q5 

000085 

SWYST = O.ODO 


00000400 

000086 

SWXST = O.ODO 


00000405 

000087 

SWZST = O.ODO 


00000410 

000088 

SDYT = O.ODO 


00000415 

000089 

SDXT = O.ODO 


00000420 

000090 

SDZT = O.ODO 


00000425 

800091 

DO 2 1=1*12 


00000430 

000092 

2 HOL ( I ) =0 . ODO 


00000435 

000093 

DO 4 1=1*100 


00000440 

000094 

W ( I > = O.ODO 


00000445 

000095 

Y8 ( I ) = O.ODO 


00000450 

000096 

XB ( I ) =0.000 


00000455 

000097 

ZB ( I ) = O.ODO 


00000460 

000098 

DY(I) = O.ODO 


00000465 

000099 

D X C I ) = O.ODO 


00000470 

000100 

DZ ( I ) = O.ODO 


00000475 

000101 

SWY(I) = O.ODO 


00000480 

000102 

SWX ( I ) = O.ODO 


00000485 

000103 

SWZCl) = O.ODO 


00000490 

000104 

SWYS(I) = O.ODO 


00000405 

000105 

SWXS(I) = O.ODO 


00000500 

000186 

SWZS(I) = O.ODO 


00000505 

000107 

5D Y ( I ) = O.ODO 


00000510 

000108 

5DX ( I ) = O.ODO 


00000515 

000109 

SDZ(I) = O.ODO 


00000520 

000110 

4 CONTINUE 


00000525 

74 ooom 

Dl = O.ODO 


00000530 

W 000112 

02 = O.ODO 

\ 

00000535 

000113 

D3 = O.ODO 

\ 

00000540 

000114 

CL1 = O.ODO 


00000545 

0001T5 

CC2 = O.ODO 

\ 

00000550 

000116 

CL3 = O.ODO 


00000555 




000117 


Oil = 0.0D0 


00000560 


oooiia 


CM2 = O.ODO 


00000565 

1 

000119 


CM3 = O.ODO 


00000570 


000120 


CN1 = O.ODO 


00000575 


000121 


CN2 = O.ODO 


00000580 


000122 


CN3 = O.ODO 


00000585 


000123 


A 3 = O.ODO 


00000590 


000124 


83 = O.ODO 


00000595 


000125 


C3 = O.ODO 


00000600 


000126 


CL1S = O.ODO 


00000605 


00C127 


CL2S = O.ODO 


00000610 


000128 


CL3S = O.ODO 


00000615 


000129 


CM1S = O.ODO 


00000620 


000130 


CM2S = O.ODO 


00000625 


000131 


CM3S = O.ODO 


00000630 


000132 


CN1S = O.ODO 


00000635 


000133 


CN2S = O.ODO 


00000640 


000134 


CN3S = O.ODO 


00000645 


000135 


E = 0.000 


00000650 


000136 


PI= 3. 1415927D0 


00000655 


000137 


1 = 1 


00000660 


000138 

300 

READ (5, 15) J.M.N.K.Y.X.Z.RHO, A1.R1.C1 ,R1.-R2,R3,H 


00000665 


000139 


IF (N-500 ) 310, 320, 999 


00000670 


000140 

310 

I F ( M-2 ) 340, 330, 999 


00000675 


000141 ' 

320 

READ (5. 35)W1 , DY1. DX1, DZ1 


00000680 


000142 


GO TO 500 


00000685 


000143 

330 

READ (5,25)B.A,AL,A2.B2.C2 


00000690 


000144 

340 

IF(N-IOO) 460,999.410 


000006^5 


000145 

410 

IF (N-200 ) 420.999,430 


00000700 


000146 

420 

L=N-100 


00000705 


000147 


GO TO 470 


00000710 


000148 

430 

IF ( N-500 ) 440,500,999 


000007) 5 


000149 

440 

L=N-200 


00000720 


000150 


GO TO 480 


00000725 


000i51 

460 

GO TO (601,602.603.604,605,606,607,608.609,610,611.612,613,614,61500000730 


000152 


1,616, 61 7. 618. 619, 620. 621. 622, 623, 624, 625 ,626, 627, 628, 629, 630) 

, N 

00000735 


000153 

470 

GO TO (701 » 702,703,704,705,706,707,708,709,710,711,712,713,714,71500000740 


000154 


1,716,717.718,719.720,721,722,723,724,725,726,727,728,729,730, 

731 

,700000745 


000155 

232,733,734,735,736,737,738,739,740,741.742,743, 744 , 745 ,746, 747.74800000750 


000156 


3,749,750) , L 


00000755 


000157 

480 

GO TO (801,802,803,804,805,806,807,808,809,810,811,812,813,814,81500000760 


000158 


1.816,817,818,819,820,821,822.823,824,825,826,827,828,829,830, 

831 

,800000765 


000159 

232.833.834.835.836.837,838.839.840.841.842.843,844.845.846.847.84800000770 


000160 


3.849.850) , L 


00000775 


000161 

601 

CALL FORI 


00000780 


000162 


GO TO 350 


00000785 


000163 

602 

CALL F0R2 


00000790 


000164 


GO TO 350 


00000795 


000165 

603 

CALL F0R3 


00000800 


000166 


GO TO 350 


00000805 


000167 

604 

CALL F0R4 


00000810 


000168 


GO TO 350 


000008)5 


000169 

605 

CALL F0R5 


00000820 


000170 


GO TO 350 


00000825 


000171 

606 

CALL F0R6 


00000830 


000172 


GO TO 350 


00000835 


00C173 

607 

CALL F0R7 \ 


00000840 

•vj 

000174 


GO TO 350 


00000845 


000175 

C 

ROUTINES F0R8 TO FOR30 DELETED. , 




000176 

608 

CONTINUE 


00000850 



000177 

60 TO 350 

00000855 

000178 

609 CONTINUE 

00000860 

[j 000179 

60 TO 350 

00000865 

000180 

610 CONTINUE 

00000870 

000181 

GO TO 350 

00000875 

000182 

6H CONTINUE 

00000880 

000183 

GO TO 350 

00000885 

000184 

612 CONTINUE 

00000890 

000185 

GO TO 350 

00000895 

000186 

613 CONTINUE 

00000900 

000187 

GO TO 350 

00000905 

000188 

614 CONTINUE 

00000910 

000139 

GO TO 350 

00000915 

000190 

615 CONTINUE 

Q0000920 

000191 

GO TO 350 

00000925 

000192 

616 CONTINUE 

00000930 

000193 

GO TO 350 

00000935 

000194 

617 CONTINUE 

00000940 

000195 

GO TO 350 

onnnoqii5 

000196 

618 CONTINUE 

00000950 

000197 

GO TO 350 

00000955 

000198 

619 CONTINUE 

00000960 

000199 

GO TO 350 

00000965 

000200 

620 CONTINUE 

00000970 

000201 

GO TO 350 

00000975 

: 000202 

621 CONTINUE 

00000980 

000203 

GO TO 350 

00000985 

000204 

622 CONTINUE 

00000990 

000205 

GO TO 350 

00000995 

000206 

623 CONTINUE 

00001000 

000207 

GO TO 350 

00001005 

000208 

624 CONTINUE 

00001010 

000209 

GO TO 350 

00001015 

000210 

625 CONTINUE 

00001020 

000211 

GO TO 350 

00001025 

000212 

626 CONTINUE 

00001050 

000213 

GO TO 350 

00001035 

000214 

627 CONTINUE 

0000 t040 

000215 

GO TO 350 

00001045 

000216 

628 CONTINUE 

00001050 

000217 

GO TO 350 

00001055 

000218 

629 CONTINUE 

00001060 

000219 

GO TO 350 

00001065 

000220 

630 CONTINUE 

00001070 

000221 

GO TO 350 

00001075 

000222 

701 CALL FOR101 

00001080 

000223 

GO TO 350 

00001085 

000224 

702 CALL FOR102 

00001090 

000225 

GO TO 350 

00001095 

000226 

703 CALL FOR103 

00001100 

000227 

GO TO 350 

00001105 

000228 

704 CALL FOR 104 

00001110 

000229 

GO TO 350 

00001115 

000230 

705 CALL FOR105 

00001120 

00023.1 

GO TO 350 

00001125 

000232 

706 CALL FORI 06 ' 

00001130 

000233 

GO TO 350 

00001135 

000234 

707 CALL FOR107 \ 

00001140 

0 CTO 23 b 

GO TO 350 

00001145 

000236 

708 CALL FOR108 \ 

00001150 


000237 

GO TO 350 


00001155 

000238 

709 CALL FOR109 


00001160 

] 000239 

GO TO 350 


00001165 

000240 

710 CALL FOR110 


00001170 

000241 

GO TO 350 


00001175 

000242 

711 CALL FOR111 


00001180 

000243 

GO TO 350 


00001185 

000244 

712 CALL F0R112 


00001190 

000245 

GO TO 350 


ooooiiqs 

000246 

713 CALL FORI 13 


00001200 

000247 

GO TO 350 


00001205 

000248 

714 CALL FORI 14 


00001210 

000249 

GO TO 350 


00001215 

000250 

715 CALL F0R115 


00001220 

000251 

GO TO 350 


00001225 

000252 

716 CALL FOR 116 


00001230 

000253 

GO TO 350 


00001235 

000254 

717 CALL FOR117 


00001240 

000255 

GO TO 350 


00001245 

000256 

718 CALL F0R118 


00001250 

000257 

GO TO 350 


00001255 

000258 

719 CALL FORI 19 


00001260 

000259 

GO TO 350 


00001265 

000260 

720 CALL FOR 120 


00001270 

000261 

GO TO 350 


00001275 

000262 

721 CALL F0R121 


00001280 

000263 

GO TO 350 


00001285 

000264 

722 CALL FOR .122 


00001290 

000265 

GO TO 350 


00001295 

000266 

723 CALL F0R123 


00001300 

000267 

GO TO 350 


00001305 

000268 

724 CALL F0R124 


00001310 

000269 

GO TO 350 


00001315 

000270 

C F0R125 TO FORI 50 REMOVED. 



000271 

725 CONTINUE 


00001320 

000272 

GO TO 350 


00001325 

000273 

726 CONTINUE 


00001330 

000274 

GO TO 350 


00001335 

000275 

727 CONTINUE 


00001340 

000276 

GO TO 350 


00001345 

000277 

728 CONTINUE 


00001350 

000278 

GO TO 350 


00001355 

000279 

729 CONTINUE 


00001360 

000280 

GO TO 350 


00001365 

000201 

730 CONTINUE 


00001370 

000282 

GO TO 350 


00001375 

000283 

731 CONTINUE 


00001380 

000284 

GO TO 350 


00001385 

000285 

732 CONTINUE 


00001390 

000286 

GO TO 350 


00001395 

000287 

733 CONTINUE 


00001400 

000288 

GO TO 350 


00001405 

000289 

734 CONTINUE 


00001410 

000290 

GO TO 350 


00001415 

000291 

735 CONTINUE l 


00001420 

^ 000292 

GO TO 350 


00001425 

000293 

736 CONTINUE 


00001430 

C00294 

GO TO 350 


00001435 

000295 

737 CONTINUE 

\ 

00001440 

000296 

GO TO 350 

\ 

00001445 



000297 

738 CONTINUE 




00001450 



000298 

GO TO 350 




00001455 



000299 

739 CONTINUE 




00001460 



000300 

GO TO 350 




00001465 



000301 

740 CONTINUE 




00001470 



000302 

GO TO 350 




00001475 



000303 

741 CONTINUE 




00001480 



000304 

GO TO 350 




00001485 



000305 

742 CONTINUE 




00001490 



000306 

GO TO 350 




00001495 



000307 

743 CONTINUE 




00001500 



000308 

GO TO 350 




0 0C0 1505 



000309 

744 CONTINUE 




00001510 



000310 

GO TO 350 




00001515 



000311 

745 CONTINUE 




0000 1 5?0 



000312 

GO TO 350 




00001525 



000313 

746 CONTINUE 




00001530 



000314 

C-0 TO 350 




00001535 



000315 

747 CONTINUE 




00001540 



000316 

GO TO 350 




00001545 



000317 

748 CONTINUE 




00001550 



000318 

GO TO 350 




00001555 



000319 

749 CONTINUE 




00001560 



000320 

GO TO 350 




00001565 



000321 

750 CONTINUE 


• 


00001570 



000322 

GO TO 350 




00001575 



000323 

SOI CALL FOR201 




00001580 



000324 

GO TO 350 




00001585 



000325 

802 CALL F0R202 




00001590 



000326 

GO TO 350 




00001595 



000327 

803 CALL FOR203 




00001600 



000328 

GO TO 350 




00001605 



000329 

804 CALL FOR204 




00001610 



000330 

GO TO 350 




00001615 



000331 

805 CALL FOR205 




00001620 



000332 

GO TO 350 




00001625 



000333 

806 CALL FOR206 




00001630 



000334 

GO TO 350 




00001635 



000335 

807 CALL FOR207 




00001640 



000336 

GO TO 350 




00001645 



000337 

808 CALL FOR208 




00001650 



000338 

GO TO 350 




00001655 



000339 

C F0R206 







000340 

C FOR209 TO FOR250 REMOVED. 







000341 

809 CONTINUE 




00001660 



000342 

GO TO 350 




00001665 



000343 

810 CONTINUE 




00001670 



000344 

GO TO 350 




00001675 



000345 

611 CONTINUE 




00001680 



000346 

GO TO 350 




00001685 



000347 

812 CONTINUE 




00001690 



000348 

GO TO 350 




00001695 



000349 

813 CONTINUE 




00001700 



'V? 000350 

GO TO 350 




00001705 



<s} 000351 

814 CONTINUE 




00001710 



000352 

GO TO 350 




00001715 



000353 

815 CONTINUE 




00001720 



000354 

GO TO 350 




00001725 



000355 

816 CONTINUE 




00001730 



000356 

GO TO 350 


\ 


00001735 





000357 

817 

CONTINUE 

000358 


GO TO 350 

000359 

818 

CONTINUE 

000360 


GO TO 350 

000361 

819 

CONTINUE 

000362 


GO TO 350 

000363 

820 

CONTINUE 

000364 


GO TO 350 

000365 

821 

CONTINUE 

000366 


GO TO 350 

000367 

822 

CONTINUE 

000368 


GO TO 350 

000369 

823 

CONTINUE 

000370 


GO TO 350 

000371 

824 

CONTINUE 

000372 


GO TO 350 

000373 

825 

CONTINUE 

000374 


GO TO 350 

000375 

826 

CONTINUE 

000376 


GO TO 350 

000377 

827 

CONTINUE 

000378 


GO TO 350 

000379 

828 

CONTINUE 

000380 


GO TO 350 

000381 

829 

CONTINUE 

000382 


GO TO 350 

000383 

830 

CONTINUE 

000384 


GO TO 350 

000385 

831 

CONTINUE 

000386 


GO TO 350 

000387 

832 

CONTINUE 

000388 


GO TO 350 

000389 

833 

CONTINUE 

000390 


GO TO 350 

000391 

834 

CONTINUE 

000392 


GO TO 350 

00C393 

835 

CONTINUE 

000394 


GO TO 350 

000395 

836 

CONTINUE 

000396 


GO TO 350 

000397 

837 

CONTINUE 

000398 


GO TO 350 

000399 

838 

CONTINUE 

000400 


GO TO 350 

000401 

839 

CONTINUE 

000402 


GO TO 350 

00U403 

840 

CONTINUE 

000404 


GO TO 350 

000405 

841 

CONTINUE 

000406 


GO TO 350 

000407 

842 

CONTINUE 

000408 


GO TO 350 

000409 

843 

CONTINUE 

000410 


GO TO 350 

000411 

844 

CONTINUE 

000412 


GO TO 350 

000413 

845 

CONTINUE 

000414 


GO TO 350 

000415 

846 

CONTINUE 

000416 


GO TO 350 


00001740 

00001745 

00001750 

00001755 

00001760 

00001765 

00001770 

00001775 

00001780 

00001785 

00001790 

00001795 

00001800 

00001805 


00001810 

00001815 

onnoia?o 

00001825 

00001850 

00001855 

00001840 


00001845 

00001850 


00001855 

00001860 

00001865 

00001870 

00001875 

00001880 

00001885 

00001R90 

00001895 

00001900 

00001905 

00001910 


00001915 

00001920 

00001925 

00001950 

00001955 

00001940 

00001945 

00001950 


00001955 
00001960 
00001965 
00001970 
00001975 
J10001980 
00001985 
000019^0 
00001995 
00002000 
00002005 
_0 0 0 0 2 0 1_0 
00002015 
00002020 
00002025 
d00020’30 
00002035 




000417 


847 

CONTINUE 

00002040 


000418 



GO TO 350 

00002045 


000419 


848 

CONTINUE 

00002050 


000420 



GO TO 350 

00002055 


000421 


649 

CONTINUE 

00002060 


000422 



GO TO 350 

00002065 


000423 


850 

CONTINUE 

00002070 


000424 



GO TO 350 

00002075 


000425 


500 

CALL FOR500 

00O020R0 


000426 


350 

WRITE (6»65)K»N»W1»YBR.X8R.ZBR»DY1.DX1»DZ1 

00002085 


000427 

C 


WEIGHT SUMS 

00002090 


000428 



WT=WT +W1 

000020°5 


000429 



W(K) = W(K) +W1 

00002100 


000430 

C 


FIRST MOMENT SUMS 

00002105 


000431 



SWYT = SWYT +W1*YBR 

00002110 


000432 



SWY(K) = SWY(K) + Wl* YRR 

00002115 


000433 



SWXT = SWXT + Wl * XBR 

00002120 


000434 



SWX(K) = SWX(K) + W1*XBR 

00002125 


000435 



SWZT = SWZT + Wl* ZBR 

00002130 


000436 



SWZ (K ) = SWZ(K) + Wl* ZBR 

00002135 


000437 

C 


SECOND MOMENT SUMS 

00002140 


000438 



SWYST = SWYST +W1*YBR **2 

00002145 


000439 



SWYS(K) = SWYS(K) + W1*YBR**2 

00002150 


000440 



SWXST = SWXST + W1*XBR **2 

00002155 


000441 



SWXS(K) = SWXS(K) + Wl* XBR**2 

00002160 


000442 



SWZST = SWZST + Wl *ZBR**2 

00002165 


000443 



SWZS(K) = SWZS(K) + Wl* ZBR**2 

000021.70 


000444 

C 


DELTA SUMS 

00002175 


000445 



SDYT = SDYT + DY1 

00002180 


000446 



SDY(K) = SDY(K) +DY1 

00002185 


000447 



SDXT = SDXT + DX1 

00002190 


000448 



SDX(K> = SDXCK) +DX1 

00002195 


000449 



SDZT = SDZT + DZ1 

00002200 


000450 



SDZ(K) = SDZ(K) + DZ1 

00002205 


000451 



IF ( J)’ 370. 360. 370 

00002210 


000452 


360 

1 = 1 + 1 

00002215 


000453 



GO TO 300 

00002220 


000454 


370 

WRITE (6.75) 

00002225 


0.00455 



DO 390 1=1.100 

00002230 


000456 



I F ( W ( I ) ) 380.390.380 

00002235 


000457 


380 

YB ( I ) = SWY(i) /W(I) 

00002240 


000458 



XB ( I ) = SWX(I) /W(I) 

00002245 


000459 



ZB ( I ) = SWZ(I) /W(I) 

00002250 


000460 



D Y < I ) = SWXS(I) + SWZS(I) +SDY ( I ) -W(I) *(XB(I)**2 + ZB(I)**2) 

00002255 


000461 



DX ( I ) = SWYS(I) + SWZS(I) +SDX ( I ) -W ( I ) dYB(I)**2 + ZB(I)**2) 

00002260 


000462 



DZ ( I ) = SWXS(I) + SWYS(I) + SDZ(I) -w ( I ) *(YB(I)**2 + XB(I)**2) 

00002265 


000463 



WRITE (6.85)I.W(I)»YB(I).XB(I).ZB(I).OY(I) .DX(I).DZ(I) 

00002270 


000464 


390 

CONTINUE 

00002275 


000465 



WRITE (6.95) 

00002280 


000466 



YBT = SWYT /WT 

00002285 


000467 



XBT = SWXT /WT 

00002200 


000468 



ZBT = SWZT /WT 

00002295 


000469 



DYT = SWXST + SWZST +SDYT -WT*(XBT**2 + ZBT**2> 

00002300 


000470 



DXT = SWYST + SWZST +SDXT -WT*<YBT**2 + ZBT**2) 

00002305 


000471 



DZT = SWXST + SWYST +SDZT -WT*(YBT**2 + XBT**2) 

00002310 


000472 



L=0 

00002315 

000473 



WRITE (6.85)L» WT. YBT. XBT. ZBT. DYT. DXT. DZT 

00002320 


000474 



GO TO 200 

00002325 


“01)047 5 


999 

WR rm 67450 

00002330 


000476 

1000 

CALL EXIT 

00002335 



ST OP 

505 FORMAT ( 12A6) 

15 F0RMAT(2I1»I3*I2*F5.2*2F6.2»F6. 1 W7F6.3 

25 FORMAT ( 6F12 . 6) 

35 FORMAT (4F12.4) 

45 FORMAT (33H0 INCORRECT VALUE FOR N OR M 
55 FORMAT (1H0 40X> 28HRESULTS - INDIVIDUAL 
1 7X» 6H WEIGHT 8X* 4HYRAR 5X» 4HXBAR 5X# 
27HDELTA X 10X» 7HDELTA Z ) 

6 5 F ORM AJ_( 2I5»£l7 ,8>3 F9 . 2_ ».3E 1 7._a.> 

75 FORMAT (1H0 44X » 20HRESULTS - SUB GROUPS 
IT 8X» 4HYBAR 5X» 4HXBAR 5X» 4HZBAR 8X» 

21 OX. 7HDELTA Z) 

85 FORMAT ( 18 . E19.8. 3F9.2. 3E17.8 ) 

95 FORMATQHO 52X . 5HT0TAL //) 

end 


IN I3» 9HTH ENTRY. ) 00002365 

ENTRIE S // 4 X> 1HK 3X» 1HM00002370 
4HZBAR 8X » 7HDELTA Y 10X. 00002375 

00002380 

00002385_ 

// 5X . 5HGR0UP 6X * 6HWEIGH00002390 
7HDELTA Y 10X. 7HDELTA X 000023P5 




Q ELI SPEDEL, 1.710420. 60490 


000001 
000002 
_000003_ 
OO'O 004 
000005 
000006 
0 0 0007 
000008 
000009_ 

ooo'oTo 
000011 
00001 2 __ 
0 00 0 13 
000014 
000015_ 

000016 ’ 

000017 

000018._ 

000019 

000020 

000021 

000022 

000023 

0 0002 4 _ 

000025 

000026 

0 0 0 0 2 7 _ 

000023 

000029 

000030 

000031 

000032 


CSPDLTV 


SUBROUTINE SPEOEL 

_ COMPUTES R OTAT ED DELTA VALUES WHE N P ROD- OF I MOT ZE RO. 

IMPLICIT REAL+8 (A-H.O-Z) 

DIMENSION HOL ( 12 ) , W(100). YB(IOO). XB(100). ZBdOO) 

1(100). DX ( 100) . DZ ( 100) . SWY ( 100) . SWX a )0) . SW Z(IOO). S WY S(IO O). 

SDY(IOO) . 


00004215 
00004220 
_ 00004225 
00004230 
DY00004235 
00004240 


2SWXS ( 100 ) » SWZS(IOO), 


SDXdOO), SDZ(IOO) 


COMMON 

PI 






common 

W1 

. YBR 

. XBR 

. ZPR 

. DY 1 

. DX1 

COMMON 

DZ1 

. DPY 

. DPX 

. DPZ 

. S 

, T 

COMMON 

J 

. N 

t K 

. M 

. Y 

. X 

COMMON 

Z 

. RHO 

. A1 

. 01 

. Cl 

. A2 

COMMON 

B2 

» C2 

» R1 

. R2 

» R3 

» H 

COMMON 

B 

. A 

. AL 

. WT 

» YBT 

. XBT 

COMMON 

ZBT 

. DYT 

. DXT 

. DZT 

. SWYT 

» SWXT 

common 

SWZT 

. SWYST 

. SWX ST 

. SWZST 

. SDYT 

» SDXT 

COMMON 

sdzt 

. HOL 

. W 

. Yfi 

. XR 

. ZB 

COMMON 

DY 

. DX 

. DZ 

. SWY 

. SWX 

. SWZ 

COMMON 

SWYS 

. SWXS 

. swzs 

» SDY 

> SOX 

► SDZ 

COMMON 

Dl 

. 02 

, 03 

► CL1 

► CL2 

. CL3 

COMMON 

CM1 

. CM2 

. CM3 

. CN1 

. CN2 

. CN3 

common 

A3 

> B3 

, C3 

. CL IS 

. CL2S 

. CL3S 

COMMON 

CM IS 

. CM2S 

. CM3S 

. CN1S 

. CN2S 

. CN3S 

COMMON 

E 

. V 

. PY 

. PX 

. PZ 


0Y1= CL1S+0PY 

+CL2S*DPX 

+ CL3S+DPZ -2«0D0*(PY*CL2*CL3 +PX*CL1*CL3 


1 + PZ*CH*CL2) 
DX 1- CM1S*DPY 


1PZ*CM1*CM2 ) 
DZlr CM1S*DPY 
1+PZ*CN1*CN2) 
RETURN 
END 


+CM2S*0PX +CM3S+0PZ -2 . ODO » (PY*CM2*CM3 +PX+CM1+CM3 


+CN2S*DPX +CN3S+DPZ -2 . ODO * (PY*CN2*CN3 + PX*CN1*CN3 


00004245 

00004250 

00004255 

00004260 

00004265 

00004270 

00004275 

00004280 

_00004285 

00004290 

00004295 

00004300 

00004305 

00004310 

00004315 

00004320 

00004325 

00004330 

00004335 

00004340 

+00004345 

00004350 

00004355 

00004360 

00004365 

00004370 


iv ELT SPEOIRf 1 >710420 , 60491 


000001 

000002 

000003 

C SPDRCO 

SUBROUT 
C COMPUT 

INE SPEDIR 

ES DIRECTION COSINES AND C. 
T REAL*8 (A-UrO-Z) 

ON HOL( 12) > W(100)> Y 

DX ( 100 ) > DZ ( 100 ) t SWY(IOO). 
0 ) r SWZS ( 100) > SDY ( 100 ) * SD 
PI 

W1 > YSR , XRR > 

G. 




00004375 

00004380 

000043R5 

0 0 U 0 0 4 
000005 
000006 
000007" 
000008 
000009 

IMPLICI 
0 I MENS I 
1(100) > 
2SWXS ( 10 

common 

common 

00004300 

R(100'e XR ( 1 00 ) > ZB(IOO)# DY00004395 

SVXtlOO) » SWZ(100)> SWYS(IOO) » 00004400 

X(10o:-V'SDZ( 100) ' 00004405 

00004410 

ZPR > DY 1 > DX1 00004415 

0U0010 

common 

OZ1 

* DPY 

> DPX 

9 

DPZ 

> S 

9 

T 

00004420 

000011 

COMMON 

J 

. N 

> K 

9 

M 

r Y 

9 

X 

00004425 

000012 

COMMON 

Z 

r RHO 

> A 1 

f 

B 1 

> Cl 

9 

A2 

00004430 

OOUO 13 

COMMON 

B2 

* C2 

, R 1 

9 

R2 

* R3 

9 

H 

00004435 

000014 

COMMON 

B 

* A 

» AL 

9 

WT 

» YBT 

9 

XBT 

00004440 

000015 

COMMON 

ZBT 

> DYT 

. DXT 

9 

D7T 

> SWYT 

9 

SWXT 

00004445 

0 U 0 0 1 6 

common 

SWZT 

> SWYST 

► SWXST 

9 

SWZST 

* SDYT 

9 

SDXT 

00004450 

000017 

COMMON 

SDZT 

<• HCL 

. IV 

9 

YR 

* XB 

9 

ZB 

00004455 

000018 

COMMON 

DY 

> DX 

> DZ 

9 

.SWY._ _ 

.> SWX _ 

.J 

SWZ. . . 

00004460 

000019 

COMMON 

SWYS 

* SWXS 

> SWZS 

9 

SDY 

> SDX 

9 

SDZ 

00004465 

000020 

COMMON 

D1 

. D2 

> D3 

9 

CL1 

# CL2 

9 

CL3 

00004470 

000021 

COMMON 

CM1 

> CM2 

. CM3 

9 

CN1 

> CN2 

9 

CN3 

00004475 

OU0022 

COMMON 

A3 

# B3 

, C3 

9 

CL1S 

> CL2S 

9 

CL3S 

00004460 

000023 

COMMON 

CM1S 

> CM2S 

> CM3S 

9 

CM IS 

» CN2S 

9 

CN3S 

000044R5 

000024 

COMMON 

E 

> V 

> PY 

9 

PX 

> PZ 



000044Q0 

000025 

CALL DIRC 








00004495 

000026 

YBK= Y 

+ S*CL1 

+ V*CL2 + 

T*CL3 






00004500 

000027 

XBR= X 

+ S*CM1 

+V*CM2 + 

T *CM3 






000045^5 

000028 

2BR = Z 

+ S*CN1 

+V+CN2 + 

T *CN3 






0000451 0 

000029 

RETURN 









00004515 

000030 

END 









00004520 


M ELT ZIRT » 1 » 7l0420< 60493 


000001 

000002 

000003 

000004 

000005 

00U006 

CZRT204 

FUNCTION 7IRT(Tf E>R» F) 

C COMPUTES PART OF DELTA Z IN FOR204 

IMPLICIT REAL.*8 (A-HfO-Z) 

REAL * 8 T»E»R»F 

0=.25DO*R*R*(1.000+E*E) +E*E*F*F 

00012285 
00012270 
00012275 
0001 2200 
00012285 
000122^0 

000007 

000008 

000009. 

000010 

000011 

000012 

W=.2D0*R*R* (1.0D0/6.0D0-E*E) 

X=.25D0 *E *E *R +F 

Y= 2.OD0*W/3.0D0-(5.0DO/12.OD0*R*R 4E*E*F*F) /3.0 DO 

2= E*E *R*R /36.0D0 

S=DSIN(T) 

C=DCOS(T) 

00012295 

00012300 

00012305 

00012310 

00012315 

00012320 

000013 

000014 

000015 

P=DSIN(2.0DO*T> 

C=DCOS(2.0D0*T) 

U=DSIN(3.0D0*T) 

00012325 

00012330 

00012335 

0 C 0 0 1 6 
000017 
000018 
'*' 000019' 
000020 
000021 

V=U COS(3.0D0*T) 

6=DSIN(4.0DO*T) 

ZtKT::0*(S-T*C)+Y*S**3+X*(T-.25no*G-P+?..'lDO*T*Q)+W*S**3*C**2+Z* 
1( U-3.0D0*T*V ) 

RETURN 

END 

00O12340 

00012345 

00012350 

00012355 

00012380 

00012385 

4. 

TRI X 

21151:28 


5. 


21151:28 


END _CUR 


OS 

Q 
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*** USER NOTICES - MAY 16. 1972 *** 

*•!•• ******** 


ISD'S 1108 WILL BE UNAVAILABLE FOR TERMINAL SERVICE FROM 7:00 - 7:30 TOMORROW MORNING < 5/17/72 ) IN ADDITION TO THE 
NORMALLY SCHEDULED DOWN TIME. TO MAKE EQU1PTMENT REPAIRS. 


********** 

(1) I S D 1108 TERMIN AL SERVICE WILL BE AVAILABLE AS SCHEDULED E ELOW UNLESS OTHERWISE SPECIFIED IN A USER NOTICE.’ 

mon : 07:00-24:00 

TUE - FRi : 00:00 -.03:00 : 07:00 - 24:00 

sat : 00:00 - 22:00 

sun : 04:00 - 22:00 


(2) RON/I TELEPHONE NUMBERS 
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**♦* ON 5/1 7/72. 415-562-4294 WILL BE TAKE N OUT O F SER VICE AS A LOW SPEED PORT. ; ' 
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(4) THE 1004 DIAL-UP PHONE NUMBERS ARE LISTED BELOW. 
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(5) ATTENTION RON/I USERS: 


BEGINNING MAY 15 . A MAJOR REVISION TO THE RON/I SYSTEM WILL TAKE PLACE. ALL COMMANDS WILL REOUIRE AT LEAST 2 CHARACTERS. 

THE SIGH-ON REQUIR ES YO UR 6 CH ARACT ER ACCOUNT NUMBER IN ACDITION TO YOUR SITE CODE ( QPSITEAO . 1 23456 ) . 

THE RON/I MANUAL IS AVAILABLE FROM THE ISO DOCUMENT LIBRARY. ” ' ----- 
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Aerojet-General Corporation 
Computing Sciences Division 
Sacramento, California 

Proposal Weight, C. G., And 
Moment of Inertia Computations 

Program E15301 

J. A. Budzenski 
7 February 1967 
Page 1 of 1 


Cosmic Number IrOO (Program For Estimating Proposal Weight - Center of 
Gravity and Moment of Inertia of Rocket Engines and Their Components), 
an IBM 709ii program from North American has been adapted to the IBM 
360 FORTRAN Level H without changes in logic. 

DOCUMENTATION 

Documentation for the program has been prepared by R. J. Huff of 
North American and is attached as Enclosure 1, Note enclosed is a 
new data format sheet. 

For added information please see Ken Talbott, Department 7730, Building 
2019, Extension 5-7627, Department Manager G. S. Kaveney. 

FUTURE EXPANSION 

Subroutines are available for new configurations. In order to incorporate 
a new subroutine you must submit a problem statement to Computing Sciences 
Division. 
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■ABSTRACT 


Details of the mechanics and use of an IBM ?0?0 program designed to allow 
rapid weight , C.G. and M.I. evaluation of engine or . opponent layouts from 
a minimum of data input are presented. Each case consists of a composite 
of assumed common geometrical shapes* 


INTRODUCTION 


The increasing flow of proposal layouts into the Weight Control Unit for 
weight., C.G., and K.I. analysis has placed a serious burden on the reduced 
manpower available. In general, the approach to each of these tasks is 
identical; i.c., the layout is broken up into parts, each of which takes a 
standard geometric shape. Values of weight, C.G. and moment of inertia for 
each part are computed by hand from existing formulas, and the results -are 
then combined. It is the aim of the present program to expedite this pro» 
cess by eliminating this hand-computation, ■ 



General Program Plan 


The general plan of the program requires that each component be resolved 
into a collection of standard shapes, and that the minimum number of dimen- 
sional parameters defining each be submitted as input data. Separate sub- 
routines then process the data for each entry, resulting in a weight, center' 
of gravity, and three properly oriented delta values for each, with respect 
to a reference coordinate system. The master program then performs all' 
calculations necessary to combine those results into a total weight, C.G, 
ana moments of inertia for the component* 


By utilizing separate subroutines for different shapes, tho program may bo 
easily c-xp.?.rdod in the future, should rev; shapes be found desirable* Input 


VI 
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data for each entry consists in general of the dimensions defining the 
shape, the density of material, the location of some identifying point in 
the common reference a>cis system, and direction number indicating the ori- 
entation (and sense) of one or more of the principal axe3 of the shape vith 
respect to the common axis system. A number identifying the particular 
shape assumed must also be furnished vith each input entry. 

Facility for removing material from the total. is provided by the density 
variable. To remove veight, a negative sign is attached to the density, the 
other parameters being written in the standard fashion. 

Printed results for each case vd.ll consist of a list containing the veight, 
C.G. and inertia delta values of each entry, in addition to values for the 
entire combination, •• ... 

Ccn nutations Performed bv Subroutines • '• 


Fa ch subroutine computes and furnishes to the main program the following 

information for an individual entry: . * / 

% 

• 1, Weight (may be positive or negative) 

2, C.G. The individual center of gravity is determined directly from 
the -input, when the shape has symmetry such that the centroid may 
be fixed visually without calculation, -or by computation. In the 
•latter case, the location of some unique point on the shape is 
given as input, ar.d the computed C.G, measured Prom this point, 

. 3. Delta values about axes thru the centroid, and parallel to the 
common system, reference axes. These values are computed in two 
steps. First, tho moments of Inertia of the shape about its ■ 
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principal axes arc computed using standard formulas based on the- 
geometry of the shape* Secondly, the orientation of the system 
reference axes with respect to these principal axes is determined 
from the input data defining the direction numbers of the axis of ' 
revolution (for solids of revolution) and one of the remaining 
axes of the principal axis system for other shapes. The principal' 
axes are then rotated into coincidence with the reference axis 
system, ana delta value's of the shape computed in the new configur- 
ation. These computations are simplified by the fact that products 
of inertia in the principal axis system /are zero. Delta values 
will bo negative when weight is negative* 

Ccmouta tions Performed by the Main Program 


After processing each separate entry by means of the proper subroutines, the 
main program will contain, in storage, a complete set of weights, C.G.-’s and 
deltas for all constituents. The main program then computes and stores the 


following sums; 


-ASS' 

z 




Z 


"v 


Z_ y 


2c y- 




£ — 


r-re.iGt/rs 


/ / /ACCENTS 


/vrj 


A, / /I «S 


These data are then combined to compute; 
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AY^I^rX 1 + 2"^^ * 2 A *y ” <5 ’+ z z ] 

AX = Z^5 2 ■*• I-^? 2 ' + Z. A * - w[y'+z x ] 

AH^Z^z* +l^y l + -w/T-x"] 


Gccr.Jtric.al Shane 3 Included In Program 

All geometrical shapes considered in this program fall into three 
major types, as 'follows: ' /_ - 


?yoe I ' Solids of revolution, symmetrical about both principal axes* 
This type requires only the directio n of the axis of symmetry 
to be completely’ oriented. 


Tyne II- 


Solids of revolution with only one axis of symmetry. This type 
is completely oriented when the -positive directi on of the axis 
of symmetry is specified, since the relation of this axis sense 
to the body is fixed by arbitrary convention. 


Tyne ITT Shapes which are not solids of revolution. This type requires 
the direction and sense of two principal axes, in order to be 
completely oriented* • . 


t 


Use of the Pro gra n 
It is felt that this 
most useful tools* 
at first, but with f 
star.tial time- sawing 
incorporated as expo 


program could become one of the freight engineer’s 
Proper write-up of the data will seem tedious and s 


'amilinrity and practice, 
* Suggestions for im.pro 


irlll eventually result in 
um.ent or expansion will bo 


id. cnee dictates* 


low 

sub- 
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CURRENT HST - SHAPES INCLUDED IN KiCGEAli V 


TYPE I 


01 

Holloa 

■: cylinder 


02 

Hollc*. 

•; torus 

• 

03 

Solid 

sphere 


oh 

Outer 

half-torvs 

t solid 

Op 

Inner 

half-torus 

solid ' 

06 

Inner 

half-toroi 

dal shell. 

07 

Outer 

half-tcrci 

dal shell 
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CURRENT nsr - SHAPES INCLUDED IN PROGRAM 


■ TY? S II - . ... 

. 101 Fru strum of cone, solid' ' • ' . ' • 

102 Outside fillet of revolution . ' .-. • • ; 

103 Inside fillet of revolution • •. 

IOI 4 Solid spherical segment .« 2 bases . ... •• 

105 Hemisphere, solid . 

105 Outer quarter of torus, solid • 1 .. . . . . '• ' ’’ . ’ 

107 Fru strum of hollow cons' • 

108 . Annular frustrum - cylindrical hole . ' • . • . 

109 Annular cylinder, conical hole • •• . 

110 Trapezoid of revolution. . •/ \. ' ' 

111 Trapezoid of revolution . " . ; 

112 . Inner quarter of solid torus •' ' ■ .. 

113 Inner quarter, toroidal shell -d ' . . . 

lib ' Hollow spherical segment ' . . 

ll£ Outer quarter, toroidal shell .. :• . ' ‘ . •' • 

.116 Axial segment, solid torus '• . \ ■ ... 

117 Axial segment, hollow t-orus ‘ " ■■ ■•' . : • .. V. . . . ' ‘ , \. v 

118 . Racial segment, solid torus • •.•• • : '' •. 

119 ' Radial segment, hollow torus ' • . . ' 

120 Radial coci'-u colid torus / • ’ • ' • • . 

I . • ' . 

121 Radial sector, hollow torus 

Axial segment of hollow elliptical spheroid • . • ' • 


122 


K! 
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. ' " . * 1 * . ** , 

• d ■ * , « * • ’ * 

CURRENT US? - SHAPES INCLUDED IN PROGRAM • • , ' 

• . «... . . . .... . • ' * * * 

TYPE II I ' . ■■ *■ ■' ' ' 

201 Sector of hollow torus • .. . ' , • ' 

202 Rectangular* prism. '• • • 

203 ' Sector of outer half-torus,, solid . • *• ' . ' 

20h Truncated ungula • of cylinder- , . ' ; 

20$ Solid tapered torus ' • ‘ - 

206 Hollow tapered torus ' 

. ’ . > * * ’1 

20? Sector- of hollow tapered dish _ 

203 Sector of wedge of. revolution •' :? ' . • 
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DATA IJKITEUP ' .... • . ' 

PRELIMINARY DATA RECORDING ' ’ 

As an. aid in recording data measured from a layout or print, worksheets 

of the fem shewn on page 30'.12.02 have been prepared. Data may be re- 

\ 

corded initially on these sheets, and later transcribed in the proper 
format onto IBM data sheets. 

Data required for each configuration is indicated by' K X n on the enclosed 

sample worksheets. Each separate section of a drawing breakdown may be 

assigned a number (i) to avoid duplication or omission of parts. This 

number is not entered as data. The significance of each parameter symbol 

used is defined in the sketch of each geometrical- shape in sections 30. 2, 

30.10, and 30.20. Units \iscd must be consistent, i.e„, linear dimensions 

in inches, density in lb/cu.in. Half angles are entered in degrees, 

conversion to radians being performed by the program. Direction numbers 

a, b, c refer uniformly to the X principal a>is, taken as the axis of 
\ .. 
revolution, v:hen one exists. 
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SAMPLE WORKSHEET 


DESCRIPTION 

Section 

1 

Formula 

N 

124 

i 

Density 

D 

X 


Locations 

n 

X 


Location 

X 

X 


Location 

z 

X 


Direction ' 

a 

X 


Direction 

n 

X 


Direction 

c 

X 


Large Radius 

R 

X 


Small Radius 

a 

X 


Inside Radius 

r . 

3. 



Height 

H 



Dimension 

B 



Dimension 

| 



Half Angle 


' 



d 



Direction 

e 



Direction 

f 







No. of Cards 

M 

a 


Sub Group 

K 




X Indicates Required Input 
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When every part of the engine or component has been entered on' the worksheets, 
data mast be transcribed onto FORTRAN FIXED 10 DIGIT DECIMAL DATA forms as 
shown or. the enclosed sample page. The first card for each case trust contain 
a description of tho case being analysed. This identification is printed 
out along with the computed results. This card must have a n l w in. column ono, - 
the descriptive material in columns 2 thru 72 being otherwise arbitral ~y a 

Individual sections will require at most two data cards. The input integer ■ 

M denotes the number of cards required in each instance. The First card of 
the final entry for each case is denoted by a "7 :) in' Column one (j), which is 
otherwise left blank# One sub-level of breakdown has been provided; hence 
each entry must bo assigned an integer (K) to classify it as a member of a 


particular sub-grouping. AH items assigned the sans value of X will bo 
combined., and _ their composite weight, C.G., and inertia values printed e The., 
value of X must raver be zero or blank. In the event no sub-grouping is . 
desired, a value of X-l should bo assigned each entry' o . ?. ' ’ 

t . • . . - I . 

v • 

The assigned formula number of idle particular shape assumed for each entry 
is entered as an integer in columns 3-5 <Jf tho first data card* All other, 
data is placed in the format shewn on the sample pagc 6 Dotted lines show 
the position assumed for tho decimal point. " J Data not conforming to this 
format ray be entered with a written decimal point (occupying or.o column). 

Tho format of tho second card is as shown on the sample . V. r nen using formula 
5C-0 (r; is cellars ous shapes not included in the program), the second card has 
the special format shown. Multiple cases may be run at the same time provided 
that all the above rules arc followed. Data cards must all be numbered ■ • 

sequentially. All jobs should be referred to tho Unit Programmer before 
submittal is Domirimori. ' w- ‘ • *' ' ■ ■ v 


liO 
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NAil 503-'. 0 
■ P^o 26 

30 . 21.01 


' '!-'» ™AL CONFIGURATIONS 
•m*E I 



a, b, c " • . . 

W « /07VH (R“ » r^) 

■i 2 - r?/fl 

114 


^/'crence axes: 

5 " Oi 

' ; » try stein: 


( >''' + r 2 ) .* K~J 



Page u7 


30 * 21,02 


ra?c-ru-LV 01 (Cont'dc) 

Delta values in common' reference axis system? 


AY 

« X 2 Ay + 

(l -A 2 ) Ax 

AX 

r=yu 2 Ay + 

(i -/i 2 ) A x 

A z 

■= "J 2 A Y 

(i -if 2 ) Ax 

Input c: 

•ta required: 


n 

- 01 

Formula no* 

P 

y 

/ 

Density ■ 

X 


Centroid 


Direction nos,, Y axis 


c J 


T> 

i w 

Outer radius 

r 

Inside radius 

H 

Length 

m « 1 

No* of cards 
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J } 


30.22*01 


FOSXULi 02 


HOLLO'.'? TORUS 



r 


Direction numbers of Y axis: a, b, c 

2 . . 2 . 2 
*>• b + c 


Let K “ 2 7fyOR, D 


[• 




W 


2 


K (r ~ r i } 


•** Copocooeocoeo© 

Direction cosines of Y axis with reference axes 

° c/D 


A D a/Dj JU. *» b/D 

Center of gravity: 

«8* 

Kj ‘ y x « X 




Delta values in principal axis system: . 
c) Y r. -vR + Oo75R (r !,> - r^) 
c) X “ ^ ^ " 0,5 vR^ 0<,62p K (r^ » z\^) 


\ 



30..22.02 


FCRMUIA 02 (Cont*d.) 

Delta va lue s in ccnunon reference axis system 

AY » X 2 ^Y + (1 -A 2 ).^X 

A X -/« 2 c>y’-s- (1 ~/i 2 ) 'bx 

A z ~-S 2 Zj +' (i -- 5 2 )dx 


In 


put data requirec 

n » 02 


p 

Density 

- 

1 } ■ 

Centroid 


2 J' 



a 7 



b r 

Direction nos., 

Y axis 

C J 



R 

Radius of torus 

(to & ) 

r 

Outer radius of 

section 

r i 

Inner radius of 

section 

n oi 1 

No* of cards 
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o o o o o « 

Center of Gravity: 

Delta values in principal axis systems 
e> I - b X « b Z » O.b vR 2 
Delta' values in co/ar.on reference axis systems 
A Y » c> Y ^ X » c> X . 

Input data required: 



y “ y * > ' " x 


n “ 0.3 
/> 



R 


Density 
Centroid ; 
Radius 


y 


7C/> R 5 


d z 
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30.21;. 01 






FORMULA. 6!j (Ccnt’do) 


30.2lt»02 

! • 


Delta values in the cordon reference axis systems 


AY 
A X 
A 2 


■X 2 c>y + (i~A 2 )^)x 


A 2 2 y 

A 2 C)Y 


+ Cl -iT)dX 


Input data required: 


n «=» OU 



Density 


y 

x , 

r ' Centroid 


s . J 

1 


a 1 



b 

Direction 

Ros o 

c J 



R 

Radius to 

J, 

r 

Section radius 

u <* 1 

Koo of cards 
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30.25.01 


FORMULA 05 



Results for this configuration are computed by deducting the cuter half -torus 
(Formula Oh) from the full torus (Formula 02) values. 


Input data required: 
N » 05 
M « 1 

y> x > * 


P 

a } b, c 
R 


. Formula number 
Number of cards 

Location of geometrical center on Y axis 
Density 

Direction numbers, Y axis 
•Radius to d~ of torus 


Radius of section 
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30.27.01 


FORMULA 0? 


OUTER HALF ~ TOROIDAL SHELL 



of radius r, (Formula Oit) from the solid half-torus of radius r (Formula Cli) e - 


Input data 


N « • 
M « 

y* x> 
/° 

a , b, 

H 

r 


r i 


required: 
07 
1 


Formula number 
Number of cards • 

Location of geometrical center on Y axis 
Density ' 

Direction numbers of Y axis 
Radius to of torus 
Outer radius of section 
Inner radius of section 


"*22 


JL 



TYPE II 


XAR 50^0 
Page 28 

30.101.01 


FORMULA 101 FRUSTRUM OF SOLID COKE 



Direction mir.bors of.. Y axis: a, ^ c 


f o , 2 2l a 
Define: D 0 |^a + b <■ c J 

*■» 

2 o ' - • - . 

K “ R + Rr . 

% „ • ‘ 

A ’ - (R - r) / R • 

• * 

K “ « 3A **• 3 * 

P " 20K ~ 5A 3 + 10.I 2 -.10/1 5) 

• f 9 

•> - ^ , 2 

Q « -~r O.IM (6A Z - 1$A + 10) - 0.0625 (3A “ fix ■+ 6) 

r L J ■ 

Weight : 0.06.0.0.0 w ‘■yOKTl K / 3 

s « nr" (R^ * RRr 6 3i*0 
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FORMULA lCl(Cor,Vd 


i ..j 

30*101*02 


• ) 


Direction cosines of Y axis with reference axes: 


A“ a/D 


/U ** b/D 


tf W c/D 


Center of gravity: 

y ° 

Delta values in principal a>d.s s; tern; 
r cr 


e)Y 


e) X - c>'Z 



v 


PR 2 * QH 2 J 


2 a Z 


* S if 


Delta values in the common reference axis system: 
AY » A 2 5 Y + (1 - X 2 ) c> X 

AX « /< 2 c> Y + (1 -/a 2 ) 4 ) X 

A Z a .if 2 c)Y •?- (1 «*J 2 ) $ X 


Input data required: 

“ 101 



Density '' . • ' 

Center of large base 

Direction numbers of Y axis in cense shown 

Radius ~ large base 
Radius - small baso 
Height 

No 0 of cards 


1 


24 


■O 



FORMULA 102 


OUTSIDE FILLET OF REVOLUTION 



R 



(w).~ 



Direction numbers of Y axis: a, b* c 

Define: D » * b^ + c^j a 

K “ /o/ 


Weight: 


o « * e o «• 


v -■ K |l.3l|83832R * G*30118575r 

t « (Kr/v) jl,OU71976R + 0,261‘i 

s o r - t 


Direction cosines of Y axis vith reference axes: 



30.102, 


FORXbL-l 102 (Cont’a.) 

Center of gravity: 

y « y + As ' X c X-J-^tJS . Z . « Z + tf B 


Delta values in principal axis system: 

*5 Y *» K ^L.3l83S32H^ + 0.903?5662H 2 r + 0 . 3UU_OU7liliRr 2 + 0,Op38356 


t) X « "c> Z 


0.3 ^ Y + Kr £ 


r i 

'0.86069146!# * 0.23237608? 

' • - c: 


Delta values in common reference axis system: 


4 Y *■ X 2 ^y 

4 X - /< 2 ^ Y 
4,2 «"^ 2 c>Y 


+ (1 - A 2 ) ^ " 
+• (1 -/\) * X 

* (1 ~tJ 2 ) -«> X 



Input data required: 


n » io2 

P 



R 


r 

m 0 1 


De nPity 
Center of base 

Direction numbers ox Y axis in the sense shown 

Large radius 
Fillet radius, • 

No. of cards . ■ • 


CO 



30.103 o oi 


rCPOPJIA 103 


INSIDE FILLET 0? REVOLUTION 



Direction 

numbers 

of Y axis: a, b, c 


\ 

Define : 

D 

■ [a 2 * b 2 * c 2 ] * 



K 

« /Qr 2 


Weight: o 

O O o c 

. . . v « K [l.3li53332R + 

l 0 Ol;7197or] 



■ s » J^0 0 301133' 75*R 

+ Oo26l73P33r 

Direction 

cosines 

of Y axis with reference axe; 

S3 

X di 

t 

“ d/D 5 ^ « c/D 


Center of 

gravity 

: 


\r ii 

«/ 

y *X = 

X “ X +/ir 

2 “ 2 
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30. 103.02 


FORMULA. 103 ( C ont 1 d . ) 


Delta values in principal axis systems 

' c> Y » K ^L.31 j 83632R 3 + 3»Ul?927D 2 r + 2.£820338Rr 2 + 0,7330. 


■ 38293^)1 


JJ 


£ X » dZ » 0.£3Y + Kr 0.11ii682>ea + O.lOif/Wor . -vs* 


•*v5 


Delta values in common reference axis syste 


X 


A 2 2 >y 
a 2 c)Y 


(1 ~A 2 ) &x 

(1 »/i 2 ) o> X 


A z « ”3 2 c> Y + (1 ~tJ 2 ) c> X 


Innut data required: 


n ■ 

P 
y 

X 
2 
a 
b 
c 
R 
r 

ra « 1 


103 


Density 
Center of base 

Direction numbers of Y axis in the sense shown 

Lar^e radius 
Fillet radius 
.No, of cards 
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I 


30.loU.oi 

* •• 

FCKHUIA 10!i SOLID SPHERICAL SHGMSiff - 2 EASES 



Direction 

numbers 

of 

Y 

axis? a, b,. 

c. . 

— • % 

Define : 

D 

n 

r ^ 

! 2 2] 1 

+ b + c j 


• 


. K 

C3 

7T/> 

H 



Weight : . 

O 0 « V 

« 

K 

R 2 - 1/3 (3B 2 * 

33H + 

•!>] 


t 

u 

w 

£ r 2 (b + 0.3H) 

- E- 1 

1.5 B 2 H - BH 2 - 0.25H 3 J 


s 

n 

t ™ B 


* 

Direction 

cosines 

of 

X 

axis with refer 

■once ao 

:es: 

A «° 

r./D f 


/« - b/D , 

■5 

° c/D 
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30.104,02 


FORTJLA 10h (Cont'do) 
Center of gravity; 

y *■ y 


X X +/4 i 


n 2 +! 




Delta values in principal axis sy s t-ern : 

• » 

^Y « 0.5K |V l + B 1 * + 2B 3 H + 23 2 fi 2 + 3H 3 + 0.2K 1 * - 2? 2 /3 (33 2 + 3BH «■ H 2 ) 


o X «= «> Z *» K 


S 25R^ + R 2 /o( 3B 2 + 35K + H 2 ) - 0.753 (3 3 f- 23 2 H + 2SK 2 + K 3 ) 


0 . 15 !^] 


vt 


Delta values in common reference axis system: 
&Y » X 2 h Y + (1 ~\ 2 ) b X 

/i X 2 c>Y + (1 ~/i 2 ) ^ X 

4 Z - V ? b Y + (1 -J 2 ) «> X 


Input data required; 


n 
/° 
y. 

X‘ 

2 

a 

b 

c 

R 

B 

K 

n 2 


101 ; 


Density 

Center of larger base 

Direction numbers of Y • axis in the sense shorn 
Radius of sphere 

Distance - center of sphere to large base 
Height of segment * 

No, of cards 
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Forr.ula. 105 



SOLID HLinSPHIiRS 
(Special case of formula 10li) 


30. 105 c 01 






30 . 105.02 


fcrxuia io? (Cont*d.) 

Delta values in principal axis system: 


e> Y » 

2 

0 * h vR • ** 


t) X » 

$Z = 0.2^937? wR 2 

/ 

Delta 

3S in coraon reference axis 

system: 

AY « 

A 2 7>y + (i ~x 2 ) ^x 


X ° 

y^ 2 c)Y + (i ~/t 2 ) <>x 

... .. 

Az « 

'•5. 2 ^Y + (1 --J 2 ) 2>x 

> 

Input cata 

required: 

. % 

n “ 

10? 

Density 


y 

X 

> Center of sphere 


2 

i 


a 

) 


b 

d Direction numbers of 

Y axis in sense 

c 

J 


R 

Radius 

• 

n « 1 

No 0 of cards 



shovn 
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30.106.01 


Formula ICo 


Outer Quarter of Solid Torus 


/ Y V U 



Dircction numbers of Y axis: b, c 

Define: D ® fa 2 *- b^ + c 2 J h • 

K - 0 cS'npr 2 

Weight: v K K (7f R * hi'/ 3) 

s - r_(5R +__3r) 

2(37fR + “*uT 

Direction cosines of Y axis vrith reference axe 
X D a/D , ^ « b/D , if ° c/p 

Center of gravity: 

% 

y » y + A s f X “ X + /t C * z 
Delta values in principal axis system 

■ $Y » kJV R 3 + UR 2 r + 0.75'/? R r 2 + 6 y3/l $J . 

C.5 bY * K r 2 (0.25 7TR + hr/ 1$) - vs 2 

Delta values in cordon reference axis system 

AY - 'X'bY -h ( I " A 1 ) bx 

V 

AX ** 

A2=TfV + (i ••• -ut ir- 


2 + 




+ Y 


-33 



30 o lc6 o c2 


■r onr.ula lCo (cont*d) 
Input data required: 


n « 105 
P 



R 


r 

m^l 


density 

centsr' of torus 

c^ion numbers of f a>cis 
in the sense shovn 

Radius cf torus 
Radius of section 

R T 0 o of cards 
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30.107.02 


.-o 


PJfUIA 107 (Confde) 


6. Q H/3 

B « R — qs 


3^i “ 2.v 
2K 1 “ K 2 


2 o 

vig ** R ~ r^ 


■u^ ° H 




3 -P 

® H^ 4 « 


Direction cosines of Y axis vith reference axes? 


A » a/D 


/*■ » b/D 


'S a c/D 


Center of gravity: 


y «■ y + A j 


X a X * JJ.D 


2 t. S + V G 


if. 


Delta valv.es in principal axis systeni 


<5 Y n K. 


« 2tn^ + 2\J > 'x^ «= 


U_, 


c> Z O Z » 0.£&Y + K, 

il 


•*U 


1 

Ub ❖ t 

~3 t * B (B * t)u 2 


B 2 tu 



Formula 107 


(conVd) 


Delta values in ccmnon reference axis system? 

■ ay « X 2 + (i -X 2 ) 3 x . . 

A I »/4 2 dy + (l-/', 2 )c>x 
AZ « -5 2 v>Y + (1 -S 2 ) c) x 


30.107 O o;> 



Input data required: 


n *=> 107 

ft Density 


x r Center of large base 


J 


U Direction numbers of Y axis in sense shown 


R 


Outer radius - large base 


r Outer radius 

' Inner radius 

R Height 

n •» 1 Hoc. of era da 


small baso 
snail baso 
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30.103.01 


FORMULA 103 

ANNUL1R FHUSTKJM - CYLINDRICAL HOLE 
(Special Case of Formula 111) 



Direction numbers of Y axis: a, b, c 

Reference point (y, x, z) must be chosen such that the 'larger base is 
at the reference point. The + Y direction must go toward the body, as 
in the sketch. 

Values for veight, C. G., and moments of inertia are obtained by treating 
this configuration as a solid fru strum minus an inner solid cylinder. 

Use is made of Formulas 101 and 01. Results -are combined in the standard 
© • 

138 
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fashion 



30,103.02 


FORMULA 103 - ANhUIAR FRU STRUM - CmiSPJCAL HOLS (Cor.t'd.) 

Input data required: 

m *• 1 nOo of. cards 

n « 103 Formula number 

coordinates of reference point 

density > 


c 

R 

r 

r 5 

H 


direction numbers of Y a>d.s in sense shorn, 

Kaxo outer radius 
Kin, outer radius 

Inner radius (of hole) '' 

Axial length 
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I 


FORMULA. 10? 

ANNULAR CYLINDER - CONICAL HOLE 
(Special Case of Formula’ 111) 


U~ i) 



...v ' 

Direction numbers of Y axis: a, b, c 


30*109.01 



Reference point (y, x, z) must be chosen so that the larger inner radius 
is at the reference point * The positive Y direction must go tovrard the 
body) as in the sketch. 

Values for weight, C, G., and moments of inertia are obtained by treating 
the configuration as a solid cylinder minus a solid frustrum, using 
Formulas 01 and 101. Results are combined in the standard fashion for 
composite shapes* • 



30. 10?. 02 


FOEtfJIA 10? -ANNULAR CYLINDER - COM C AX HOIS' (Cont*d.) 


Input data required: 

r. ° 1 no, of cards 
■ n ** 109 Formula number 

• y" 

x V coordinates locating center of small 'base'- 
z /- • 

* 

/O density '* 

direction numbers of * Y axis 

R outer radius 

r larger inside radius 

r. smaller inside radius 

i 

H axial length 





30 . 110.01 


Foil'll LA no 

TRAPEZOID 0? REVOLUTION 

(Parallel sides parallel to axis of revolution) 



Identifying point 
normal plane thru 


(y, x } z) is located on the y axis, with v in a- 
the upper left corner of the section, as shown in 


the sketch. 


Direction numbers of Y axis: a, b, c 

The distance H is measured in the * Y direction, from the uprer lef t 
corner to the loner right corner of the trapezoid; i.e., H can b3 
negative, as shown in Sketch (b) 6 
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30.Xi0.02 


F3SXUIA 110 - TRAPEZOID OF REVOLUTION" (Cont'd.) 



Sketch (b) . 


Reference points for trapezoidal configurations 


Values for weight, C. G., and moments of inertia for this configuration . 
are obtained by treating the body as an algebraic combination of two 
solqd cylinders and two solid frustruus. The trust rums are added or 
deducted as required by the particular type of trapezoidal section 
involved. Results for each section are computed and combined in the 
standard fashion for composite bodies. Use is made of formulas 01 and 
101 . 
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30.110.03 


FOr-TJIA 110 - TEAFE7.0ID OF REVOLUTION (Cont'd.) 

Input data required: 

n « 2 no. of cards - 
n ° 110 ^oCTla number 

coordinates of reference point 


a 

b 

c 

R 

r 

H 

E 

A 


density 

direction numbers, Y axis 

outer radius 
inner radius 

axial distance - upper left corner to lever rig 
axial- length ~ inner base 

axial length - outer base • 


;ht corner 



30 .nic 0 i 


FORKUIA 111 

- TRAPEZOID 'OF. 'RSyOIITTION 
(Parallel Sides Norr.val to Axis of Revolution) 



Identifying point y s x } z is located on the axis -of revolution in the 
plane of one base of the trapezoid. 


Direction ranchers of Y axis: a, b, c ; 

Other input data (see sketch): 

P t R, r. A, B, H (Positive or negative, measured as length NL- - OK) 
Define D « (a^ <■ 

Direction cosines of Y axis vith reference acres: 

X » a/D . » b/D « c/D 
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30 o 111 » 02 


FGRFUIA 111 ~ Trapezoid of Revolution (Cont’d,) 

\ 

Values of weight, C» G., and delta values for this configuration aro 
obtained through the use of the solid frustrum equations as follows: 

(a) Compute and store result's for outer frustrum OKLtf using Formula 101 

lot /° 1 ** /° , H x » A 

(l) When H is zero or negative, let 


“ R + H 


a ®> a 
1 

b i - b 
c “ c 


y i ” y 
*1 “ X 


Using Formula 101, compute W, , y , x , s , AY . AX , AZ , 

•‘•111 1 1 1 


(2) When H is positive, let 


R .» R *!* H 

1 

r « R 

1 • 


a » -a • 

1 

b l “ “ b 
c„ *» ~c 


y l 


X A 


x a x <- / J - A 

1 

z^ 13 z + iS A 


Using Formula 101, compute \J , y , x , 

X 


AY , AZ 


(b) Reverse sign of density, compute and store results for inner 
frustrum OIKN using Formula 101: 


Let Z 0 m 
7 2 


7° 


P Cl R <- H ~ B« 


' H. 


A 


(1) When ? is less than cr equal to let 


. R, 


r 

P 


b^ u b 


• y 2 " y ; 
x 2 o x 


c 2 


Using Formula 101, compute W 2 , y^, x ? , AY^ 
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30.111.03 • 


FORMULA 111 ~ Trapezoid of Revolution (Cont'dg) 


( 2 ) 


P is greater- than r, let 
'* a. 


: R 2 “ ? 


y e. r 
2 


i 

a ' 


-b 


ES „ r» 


y + 


A A 


Xg “ X + yUk 

' 2g «=> 2 + "S A 


Using Formula 101, compute V7 g , y , x g , z AY g , AX ,’AZg. 


(c) Combine frustrisns: 


in » 

t — I 

+ V2 

XH = 

V 1 X 1 

* w 2*2 

' AM - 

v ih 

*» 

+ v ^ 
2 Z 2 

Weight 

w » 

w + 
1 

OoG o 

y » 

YK/fa 


Dolt 


XM/Vi 


A Y 


2 

^ (x^ 2 «- z^ 2 ) + Ay^j ~ Y7 (x 2 + z 2 ). 


i - 1 
2 


A X 


"i * A \ 


w (f <- £ 2 ) 


1 - 1 

2 • 


A Z 


r * 

v i (y. 2 * x, 2 ) ■>• A 2 


i » l 


0 /) 
- W ( y w + x ) 
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30 . 111 - 01 ; 

FORMULA- 111 «= Trapezoid of Revolution. (Cont'do) | 

Input data required; 

m *=* 2 noc of cards 

n ■* 111 Formula number 

:1 •••““ 1 . 

P density 

a 
b 
c 

R Outer radius «» reference base _ • ' 

.r Inner radius - reference base 

. H Outer radius of opposite base minus R (+ or «•») 

B Height of opposite base 

Axial length (between parallel sides)* 


^ direction numbers of axis of revolution with sense shown. 


k 



30.112.01 


FORMULA. 112 

INNER QUARTER 0? SOLID TORUS 



revolution (Formula 102) Iron a hollov: cylinder (Formula 01). 


Input data required: • 

K » 112 Formula number 

-> 

■ H « 1 Number of cards 

y, x, 2 Location of geometrical center of. torus on Y axis 

/O Density ' 

a* b;, c Direction numbers of Y axis * 

R . Radius to of torus 

r Radius of section " 
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30 o 013. 01 


FORMULA 113 


in:gr quarter - toroidal shell 





-t>~ *j* 'y' 


Results for this configuration are .obtained by deducting the solid quarter- 
tcrus of radius r^, (Formula 112) from a solid quarter-torus of radius r 
(Formula 112). 


Input data required: 


N -» • 113 


Formula nurr.ber 


Mr.be r of cards 


7 ) X, 2 


a, b, p 


location of geometrical of torus on Y axis 


Density 

Direction numbers of Y a>d.s 
Radius to torus (f)_ 

Outer section radius 


Inner section radius 



30.llU.01 


FORMULA 11 U 



Results . for trus configuraoicn arc ootsincd oy ceducoin^, cnc in.<or spi.Oi teal 
segment of radius r (Formula lCU) from tho outer spherical segment of radius R 
(Formula 1CU). •. ... 


Input data required: 


N .= 11U 

Formula number 

K «* 1 

• Number of cards 

y* x, z 

Location of center, large base ' 

P 

Density 

3j b, c 

• Direction numbers of +Y axis, in sense shovm 

R 

Outer spherical radius 

r 

■ Inner spherical radius 

r i 

Distance, center of sphere to large base 


I 



30. li?. oi 


• FOHKUIA 11? 



of rccius r. (Formula 105) from the solid -quarter torus of radiu: 
x 


r' I 


Input data required: 

N o 11? Formula number 
Number of cards . 
location of torus (£l on Y axis 
Density 



a, b^ c 

R 

r 


Direction numbers of Y axis 
Radius to torus 
Outer section radius 


r. Inner section radius 

i 



= 3 »* •'r'y 

rarter torus ' 
[Formula 1C-5) 
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30.116.02 


FGRHUIA llo (Cor.t’c.) 


Center of Gravity: 
y o y +\ S , 


x ° x + /^S > 


values 

a. i 

i principal axis 

system: 

' * 

sv .. 

“O I - 

“1 

[v * 2 * **> 

+ E„ hr 

•* 




r™ 

1 


e)n u 

c 

E E (lid + 5r 2 ) E hr 

-*• L 3 — 

P 

-• WS 


Delta value c in common reference aids system: 

di « X 2 ^y + (1 ~ A 2 ) b x ■ 

AX -/t 2 oy + (i _/i 2 ) h x 


dY 


d X 

-/l 2 * 

A 7. 

= v 2 5 


Input Data Required: 

N c 116 Formula number 

K » 1 Number of cards 


Geometrical center of torus 


Density 


Direction numbers, Y axis 


Radius to torus section 
Radius of section 
Height of segment 
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30.117.01 


FORKUIA 11? 



(Formula 116) from tbs total solid segment (Formula 116), 


Input data required: 
■ K - 117 

M c S 


lb 




i j b, c 


R 

r 


r. 

x 


H 


Formula number 
Number of cards 
Geometrical center of torus 
Density 

Direction numbers, Y axis 
Radius to torus section <1 
Outer radius of section 
Inner radius of section 
Height of segment 





30.113.C2 


?C=2-:JIA lie (Cor.t’d.) 


Direction cosines of Y axis vith reference axes: 


X ° j 

.ter of gravity: 

9 ° y 


/- 


X 


b/D 


. <5 , n c/D 


Z “ s 


cite values in principal axis system: 


Y = E. 
^ X Os 


(li? 2 + 3r 2 ) + E (6CH 2 - l;5Eh + 12h 2 + 6r 2 ) 


.5 *Y + E i j^r 2 + E 3 (T 2 + $Rh) 


Delta values in common reference axis system: 

Ay « A 2 by + (i - A 2 ) ^ x 

A x = /> 2 + (i -/i 2 ) A x 

A i = 6 2 by + (i ~-^ 2 ) £) x 

Input Data required: 

K = 118 Formula number 

V. <= 1 Number of cards 


y> * 
/° 

a } b, c 
B 
r 
K 


Geometrical ccntc-r of torus 
Density- 

Direction numbers, Y axis 
Radius- to torus section 
■Radius of section 
Hci-tht of segment 



30. 11? ,01 


FORMULA. 11? 

Racial Serr.er. t of Hollow Toru 3 



Input lata Required : 

N n 11? Formula number 

'* ° v 1 -Number of cards 


yr 
* 2 

x/ a 

Geometrical .center of to: 

A> 


Density 


b, c 

Direction .numbers, Y axi; 

R 


Radius to torus 

r 


Outer radius of section 

r 

i 


Inner radius of section 

H 


Height of segment ' 
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30.120.02 


Formula 120 (Coat'd.) 


E^ n ®2 ” Sin^ O^) 

Eja n |-(Sin ©2 Cos ®2 “ Sin Gp. Cos 0^.5 
E^ « 1/3 (Cos 3 0 2 - Coa3 C^ 


Weight . . * W » X (ccE - E x r/ 3 ) 


s « * 2 L ££■* +‘ -V ‘ 

W L.3 ■ ~T_ 


Defines! G^ ° 0.75 (cq - E^) 
G 2 « 0.2 (E^ - E x ) 
Gj. » o? s 2 ?. * : • 


s/3 . 22 gR •:- E-l s[ 

.25 [H (c- ■*■ E^) --2S 3 c| 


*=> *» 0.2 E^ 


Direction cosines of Y axis vrith reference axe 


a/D 


b/D s 1 5 c/D '. 


Center of gravity! 
7 D 7 ^ As 


X 15 X •!■ M3 


JS ‘3 s 


z <■ 6 


Delta values in principal axis system! 


d Y » K 


: OCR 3 - E-jp/r + G-jRr 2 ’■> G g r3 


p ~ 

c> X *» c; Z <=> 0.5 ^Y <■ K <■ G^r <• G^r 2 * 0^r3 




30.120.03 


FORMULA 120 (CQNT'B). 
Delta values in common reference a:d.3 systems 

AY » A 2 ^X + (1 -A 2 ) C)X 

AX “ + (1 - V P 2 ) 

AZ ° x> 2 o>Y + (i ~t!> 2 ) o> X 


Input data required: - 

n n 120 Formula number 

n ra 1 Jhirnber of cards 



Geometrical center of torus 

4 ■ * 

Density •' . _ •• •.*.' 

Direction numbers,? Y a>da 

Radius to torus section 
Section r a diva 

Sector median lino angular position (degrees) 
Angular vridth of sector 5 (degrees) ' • 






PORKUIA 121 


30.121.01 



Results 
sector ( 
(Formula 


for this configuration arc obtained by deducting 


inner solid' 


Formula 120) Kith section radius r.- 
120) Kith radius r B 


fi'ffj the total solid sector 


Input data required? • 

r. ^ 121 Formuja numbers 

n u 2 Number of cards 


*7 *— A 1 

/° 

a^ b ; c 
2 


Geometrical center of torus 
Density 

Direction numbers^ Y audio 

Radius to torus section • , **' 

Outer radius of section •. 

162 • 


Inner radius of section 
Angular virith of sector*- decrees' 


Kediar, 3 ir.e an.qlo } v .-:\ cured from * Y direction., dy ri'e 






FORMULA 122 ‘ 

AXIAL SEGMENT of HOLLOW ELLIPTICAL SPHER0H>r- . 

(Generated by Concentric Ellipses with Serai-axes R, r and R-t, r-t) 



Direction numbers *of Y 'axis: a,, b/ c 

Compute: G 3 R - t . ; M » c/P'' 

C “ r - H . ' • N ° R/r 

F - r - t J * R 2 + G 2 

L = H yt K » M 2 + N 2 ' 

D “• (R + G)(R - G) 

U « (X .+ M)(H - 1!) '■ 

• Ej L = (? 2 + FC + C 2 )/3 ' • 


.juration docs not have a constant shell thickne: 
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20.122.02 


FOFYjLA 122 (cont'd) 


(r 2 r? + F 2 )/3 ■ 


o.2(pk + f 3 c + f 2 c 2 + fc 3 + C^) . . 

0.2 (F 1 * + F 3 r + F 2 r 2 +. Fr 3 + r^ 1 )’ .. 


./ o ? . . . 

q “ t (r- 2 2 - >ny 

? 1 « L (DS 1 .- U2.) 

? 2 “ t (R 2 - N 2 2 2 ) . . 

? 3 - L (D - US 1 ) 

, f 2 . 2 2,1- 

d a (a + b + c ) 2 • , 

weight: w'» 7if-> (? 2 + ? 3 ) . 

s - ^ 7 —" | L(F + C) £*21) - U (F 2 + C 2 )J 

+ t .(? * r) fsR 2 N 2 (F 2 + r 2 P ^ 


•j ; 


Direction cosines of Y axis vith reference a xes: 


A a a/d 


“ b/d 


^ c c/d 


Center of gravity 


y = y + X s 


X * X + yX 


2 =* Z 


+ £ S 


Delta values in principal axis system: 

^ Y ~ 0.5 7C/^ £ ? 2 P 2 + J? 3 - KP X - QN 2 J ■ .. 

-0 X = 0.5 6) Y + 7t/° (P + Q) - W(c + s) 2 ■ 



■. ’ ’ ••• -Y" Y- ' 30.122.03 

• ■ /'■" ' ": •/. ; ;Y.;- Y-. v v - •; Y. y 

FOL : uvJIA 122 (conVd) \ . V . ’ 

Delta values in common reference a:ds system: • • , .. ’• 

ay-, x 2 5 y + (i -a 2 )Sx ; v ' i '::}:- y 

ax */ 2 y + (1 - / a 2 )^x. ; ••••V . ’’ * •• .■ . 

A z » -S 2 c/Y + (1 ~$ 2 )c>x . •; 




Direction I\ T o’s. Y axis 


R " Outer semi-major . axis 
v • Outer semi-minor axis 
t ■> Thickness .• . 

H -Axial height of segment 



Entered in location usually denoted on data sheet 




FORMULA 124 


SOLID HALF ELLIPSE 


30 .124.01 
5-7-69 



DIRECTION NUMBERS OF Y AXIS: a, b, c 

2 2 2 

DEFINE: D = (a + b + c ) 

WEIGHT: W = 2/3 tt pR 2 r - 

ELEMENT CENTER OF GRAVITY: S = 0.375r 

DIRECTION COSINES OF Y AXIS WITH REFERENCE AXIS: 

1 = a/D , u = b/D , S = c/D 

CENTER OF GRAVITY: 

y = y + As , x = x+ps , i"=z + Ss 

166 

f 



30.124.02 

5 - 7-69 

FORMULA 124 (cont) 

DELTA VALUES IN PRINCIPAL AXIS SYSTEM: 

<Sy = 0.4WR 2 , <5x = 6z = W/320(64R 2 +19r 2 ) 

DELTA VALUES IN COMMON REFERENCE AXIS SYSTEM: 

Ay = X 2 6y + (1-A 2 )6x 

2 2 
Ax = y 5y + (1-y )6x 

Az = S 2 6y + (1-S 2 ) 6x 

INPUT DATA REQUIRED: 

m = 1 number of cards 

N = 124 Formula number 
K = Subgroup 

y ^ R Major semi-axis 

x ) Center of base r Minor semi -axis 

2 J 

p Density 

a ) 

b > Direction numbers of Y axis 
j (See figure) 
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TYPE III 


XAiC l) 0 j 'i U 


30 * 201*01 


Piv^c 30 


■ * •?■ 

!* • N 

T07ZCJ1A ' 201 '' " SECTOR OF HOLLOW TORUS 



Direction 

numbers • of 

Y 

axis 

(parallel to 

axis of revolution): 

a, b., c 

Direction 

n ux hers c i 

X 

axis 

(thru center 

of revolution and C'.G« 

of sector) : 

&j e, 

r ■ 






Direction 

numbers of 

Z. 

axis 

: 

• 


■** S c - 

co - if , 


~ h 

« af - cd , 

— i « bd - ae 


Define : 

. o 2 


2 3- 

• 




o 2 2 3- 

“1 “ + d + c ) 2 

T>2 a (a 2 + c 2 + f^) 2 

° (g 2 + h 2 + i 2 )* 


Convert c-Z to radian measure: C\ ^ 7T /l80 
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CS Us 


FO: : jrJL'vCJl (Cont'd.) 


a t- 

30.201,02 


A 


2 A 2 
r + r. 




2 sirA^C 
o-C 


2 A 

2* *A + gr; 


.« L - v 


w ** 2 T^o R cC (r 2 - r ± 2 ) 


cosmos oi 


y 


o/D^ 9 


gin cf ' 
GC 


R + T 


UR 


Y axis vrith reference axes: 

= t/D 1 , 'J 


c/D- 


D erection cosines of X axis vrith reference axes: ' 

y^o c e / D 9 * *6 


/ \ 2 — ^/*^2 $ 


2 " r'V 


Direction cosines of Z axis vrith reference axes: 


,\ 

^3 


e/D 


e/ *^*5 J 


•“• h/D : 


if. 


i/3j. 


Center of gravity: 

y « y + gX p , 


X “ X * S/A 


5 


2 “ 2 + S 


■X 


Delta values in principal axis system: 

r p 

l:R wC + 3AcC - K 


vr 


L 


X c 


16 -C 


_jr 

16 cc 


)sR (2cC - sin 2 of) + A (10 cf. - 3 sin 2 eC ), 


IR (2 K + sin 2ec ) + A(lCTcC + 3 sin 2 c< ) - U'K 


Jelta 


.to. values in ccr 

anon reference axis 

Ay «> X 2 &y 

+ X 2 2 <)x * A 3 2 

A x - 2 6 y 

+ /< 2 2 ^ +/<. 3 2 

A Z - '5 2 b Y 

+ i5 2 2 c>x <■ ^5 3 2 



, NAi' -j u 
Pago 3 

30.201.03 


: G.w.JIA £01 

(Coat'd.) 




Ir.uut data 

required: 



• 

*1 CJ 

•201 _ 




C -j 

•Density 



• 

i ] 

Center of 

torus 



. S j 





A 1 
b ( 

Direction 

numbers 

o 

Y axis 

c J 

O 
? { 

Dj rcction 

numbers 

of 

X axis in the sense shown 

- J 

Tj 

Radius to 

torus 


j 


i’ Out nr radius of torus section " 

r. Inner radius of torus .section 

c ; Half-angle (degrees) 

n <= 2 -No. of cards' 



.■o c! 



fj o 


l 


30.202.01 




y 


y 


5 


X ° X 


tJ z- 



30.202,02 


Dcrsrela. 2C2 (cont’d*) 

Delta values in principal axis system 

1 1 - u/12 (a 2 + B 2 ) 
v/\ c v/12 (b 2 +h 2 ) 

^3= v:/l2 (a 2 + H 2 ') 


Delta values in 

ccnr.on referer.c 

3 

w 6IT1 J 

x . 

*> 


V A 


AY - A, t>Y 

r A\, 

% U 

. ^3 

<) 3. 

Aa = /- L , A 

■'r X' ^ y " 

+* 

r* 

A, 

c>£ 

ah = 4^r 

+ £ bX 

f i 

> 

$ 

c>£. 

3- v cd”t<x rcoui 

reds 





density 

location of centroid 
direction numbers of Y axis 

direction numbers of X axis 

dimensions of prisra 

No* cf cards 


n ~ 202 
r> 








30.2C3. e G2 


- »-» i_ci t- 0^3 C Co A * Ci O ^ * 

-ivoctien cosines of Y a>is vith reference axes; 

X,» a/i^ , A" b Ai i ^r B C / D i 

lirceiicr. co sir.es of X axis with reference axes: 

= d /°2 * " e / 3 2 * / n ' ^2 

£ ...V v •; CsSJ-tigS cf 7A i*/S I*./'//; b.X£3 * 

. \ -i " b/ d 3 p K n /^3 S ^2 ° i / r) 3 

vC 1 O X ^ . C V o 

y '-' y + /... 2 , X = x + 3 , 2 °Z + ’tf,S 

Pelts valrcs in principal axis system: 

*Y’- Ar|v;p. 3 + *75 7fRr 2 + !i K 2 ” + 8 x^ASj - vs^ 

lx » j 2 ?3 + ^ (.25 + 1.5k-,) Hr 2 + 2 k-, r 2 ** + (h * :<i) 

I. 

el = Aw . 7 ; K 2 ?? + % (.25 + o?5 K 2 ) Rr 2 + hK 2 ? 2 r + (U + 5 A 2 ) 


-3/lsj 

tVi$ 

«■ 


a \ slues in cor 

nor 

1 reference aids system: 


/. v ) " >v 

1 - A t ■-> i 

-;*• 

A* ’+Aj 3s 

4 

*> 

fi X ’r: ‘ , j f 

-p 

/A AX * /X\ c>£ 

^ Pt r 3 

0 

A J " > Y 

-- ~ ~ v/| ^ ' 

-p 

•A 2- ax + -J; 5 b 

*» 0 



.'oa recurred : 


n “ 203 
P 


density 

center of torus 

direction numbers of 
Y axis 

direction numbers of 
X cv'b-G 

Radius to tores 6 
radius of section 
half-angle (degrees) 


n ” 2 . h T 0o of Cards 
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30.20U.01 



30 «, 20li 0 C2 


FCbfJiA 2C-U - Truncated Ursula of Cylinder (Coat’d,) 

Direction ambers of Y axis (Pam 11 el to axis of cylinder): 

Direction numbers of X axis (Xormal to Y axis,, parallel to plane 
of ci:;~or.-l cut. vith sense chosen so that the positive Z axis in 
the rijht handed system X- Y 3 2 vill intersect the cylindrical 
surface): 


Direction numbers of Z axis: 


g 

~ of ~ ce } 

h e cd - af, ’ 

i 

a ae - bd 

Tj.-.-Th ^ p • 

p, 1:1 W 

+ b 2 + C 2 ) 2 





X 

D « (a 2 

2 

d 3 c ( 'e 2 

+ e 2 + f 2 ) 2 
'■+ h 2 + i 2 )'^ 




C)e.O 

n cosines of 

Y axis with 

reference 

axe.:*: 

• 

A x 


A 

" b/D i 


D .c/D^ 

oc'oio 

r. cosines of 

X axi s vith 

reference 

axes: 


N 

■ d/ h 

Vh 

° e / D 2 

- 

« f/D 
2 2 

Xt'CC 

n cosines of 

Z axis vith 

reference 

cx-<v C 3 • 

i 

a 3 

" g/ D 3 

/t 

“ h/D 3 


l5 3 . i/D } 

Define : 

F « R - 

A 





P - (R 2 

.-2 \ 2 

- r j ^ 





u Tan" 1 (P/F) 





176 



30.201. 03 


"JIA 20.lt - Truncated Unjjula of Cylinder (Cont’d.) 


GEFFRAL CASS 


A ji B 


2 = H/(A - B) 

Q (3 (2?. - 3))* 

G = . R - B 

S* = ^n" 1 (Q/G) 

C •- /ORR 3 

U •- 2/l3 (CR 2 ) (Sin^uv 

VI - C 




Sin ; t? -o; Cos cC + ft Cos / 3' ~ 1/3 (Sin 3 oC - Sin ^)j 


ca.T.'oonant 


c 


X an: 


c r? r 

“ - Sin2< ~ Sin2/3 ~ 2«CCcs2<£ + 2,<$Cos2^ - cC + ft 
b;i L • * " 


+ «2p (S inli^C - Sinlt^5 ) 


EF 


.3 component of-C.G, 


0 


7. axis c exponent of C.G.: 


OR 


r 


” 1 «37o (<~/3 ) - .2* (Sin2 
<■ . 
(Sinl-c-C - Sin ) r 

:-r of Gravity : 


y a 

y + 

‘ + ^ 2 V + ^ 3 t 

V S3 

x + /yS 

+ /* 2 V + /" 3 T 

•7 £3 

2 + ' J i s 

+ 6 v + -5 3 t 

Define : 

c i " 

.2£R 2 (1 + E 2 ) + E 2 F 2 


C 2 " 

.2R 2 (1/6 - E 2 ) 


C 3 * 

.25 e 2 rf 


C h " 

1/3 (2C 2 ~ £>?/l2 - eV) 


n 

J? 

E 2 R 2 /36 


Sin.2/3 ) + 1/32 
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30.20h.0U 


JL'. 2C»4 - Truncated Ursula of Cylinder (Cor.t’d.) 

Products of Inertia about original y } x } 2 axes: 
“0 '■ 

= £ (U - TrW) _ - VST 
•» 0 


*0 


V 


Delta values in original (symmetrical) axis system: 

r 


*? ~ n- 

K Vm» 


i C (Sin c C - Size ,G - cCCcs ad + /? Cost? ) 

< i * J 9 * 

+ C 2 (Sinead Costed « Sin^/^ Cosy?) 

+ C^ ( cC 0 25 (Siny-i - Si rdf P ) - Sin2<* + Sin2/3 


+ Coc2<* " 2£Ccs2/3) 

+ (SirAc - 5irA;3 ) 

+ C^ (Sin-3'C - Sin- 3^ ~ 3^Ccs3^ + 3 Cos 3/3 )J 

■ 3 7 . »■ 3 z ~ vr 2 + u- 
3 y = o»5 (v? 2 + u) - vr 2 


vs 2 


Delta values rotated/' to common reference axis system 


AY = X 1 2 Dy +X 2 2 3x 

+ X 3 2 c) Z 

- 2 

^ P y^2^3 

+ 1 A 1 X 3 + ? Z X 1 A 2 

AX » /^ 2 c)Y +/ j 2 2 ^X 

VV'Sz 

- 2 

<yv' 3 

* -Vi-b * ViA 

A Z » -5 v 1 

+ -^ 3 2 cl Z 

- 2 

^ P y'^2^3 

* P A J 3 * ? zUA 


•x- Original axes are not principal axes; hence, pro-ducts of inertia 
are required in rotation to new reals configuration* 



30. 2014.05 


?0?-~JLA 201; - Truncated Ungulaof Cyl5.ndcr (Cont’d.) 


II, 


■f.'.L CASE 


B 


C “ 2 c-C “ Sin 2 
S a OoH 


V = 0 


1<R Sin 3 ^C 


. 30 

S » Oo/OCR 2 

G - c25R 2 (l “ T Cos cc /?.) 

,2 


U a 


Q <- 


(1 + 3T Cos c£ /R) -T* 


. Delta values in original axis system: 
o,Y » W (G + U) : 

wix » v:/l2 (12U + K 2 ) 

0 :Z = tf/12 (120 -1- K 2 ) 


Delta values rotated to common reference axis system; 
A Y = X * ol + A 2 2 c)X + \ 2 bz , ‘ 

i 

A » /^ 2 by + / m 2 2 ox + /i^ 2 c> z 

Az " "6 ^ by + i 2 2 bx + 6 2*z 
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30.20h.Co 


FORMULA 20h - Truncated Ungula of Cylinder (Coat’d.) 


Input data required: 
201; 


n «=■ 

n =» 


x 


/° 

a 

b 

c 

R 

rt 

n 

A . 
B ' 
d : 
e 
f 


coordinates of reference point 
• •' / 

density 

Direction numbers of Y axis in sense shorn, 

Radius of cylinder 
Axial length 

Vertical height of base at reference point y 
Vertical height of oooosite base 


Direction numbers of X 


axis in sense shorn . 


6 



Direction numbers of Y axis (parallel to axis of revolution) : a, b, c " 

Direction numbers of X a>ds (thru center, and point of maximum outer '• .• 
radius): . . 

d, e, f ...„••••• . • 

Direction numbers of Z axis: 

g = bf - ce, h - ce - af, -i *= ae - bd ’ ' . 

Define: D-^ e (a 2 + b 2 + c 2 ) 2 ‘ 

D 2 - - (d 2 + e 2 + f 2 ) 2 " . 

. o o o x ' : . 

D 3 a (g + h + i ) 2 : • • •• 



V. 





(-) 


30 . 205 .C 2 •; 


- or’.Vwij.ci 20 v . C c r ^ 




Direction cosines of . Y axis with reference exes r 

'X 4 »- “ vi\, 4 “ °/ d i 

ireciion cosines of X axis with reference axes: 
A- = C/D., _/x, = e/D , 4“ f/B '■ ••'• 


A.f s/D v h/D , . * 4 “ i /3 , 

J -> «* J 3 3 - . .. ■■ 


G - r-r. 


Q a 'R + r. 

x 


? 1 a 3 - 12 / 7 ; ‘ 


■ 2 « 5 - 30 /?r- 


■? = r ■> r. 


P ~ >■* "O J. v 

2 1 x 

v . 

P =g • v» P + r* ^ ' 

3 * 2 1 

?, “ r P + r.^ 
a 3 x 


P- 3 r ?. + r. 
p 4 x 


■ *1 


2 Q r, 2 + G r (2 Q + r.) + 2 G + 2 *4 + .5 






30.205.03 


Formula 205, Cont'd 


h — (j* * O • •« 


/° 


V ■ 


Center of gravity: .. ; , / •. . ' y •' / ! 

S = f 1. Q 2 r ± + ’ll Q r ± 2 + r ± 3 + 0.(2 Q 2 + 8 Q r ^ + 3 r ± 2) 

V* . • * > • 

' ' • 2 • : 3 T • ■•• • • "■ 

+ F (2 Q + 3 r.) •+ G^ Fo " 

1 2- c 


y = y 


Xs } 


x * ./* Sf * '■ 


2 + 


" •. . + 


Preliminary computations for moments of inertia 

? = c/k • ", ! 

C, - l.s Q r. 2 (h Q 2 + 5 l-P). ; ■ 


X .. 


c 2 « .75 r i G (8 Q 3 4- 12 Q 2 + 20 Q r^ 2 .+ 5 r^.) ■ ’ i . 
C = Q 2 (2 Q 3 + 12 Q 2 r. + 21 Q r 2 + 10 r 3 )'' 

Jj . * ^ i 

C, - .75 G 3 (5 Q 2 + 22 Q r. + 17 r 2 ) • •=.- . 

H i. x " 


C- = .3 C- (17 Q + 28 r.) • 

t .... . 1 • 

v , 

c, - 2.25 g 3 . • . 


c 7 3 .75 F 2 (ii Q 3 + 2li r. .+ 30 Q r. 2 + 12. r. 3 - 16 Q F*. - 60 ? c r, ) 

I OL - i» 1 ‘ 1 

C Q = 1.125 G F 2 (12 Q 2 + 36 Q r i + 22 r. 2 ~ 35 F 2 ) ' ■ 

c « .7.5 G 2 f 2 (3 Q + h r t ) •; ' •' < • 


2 


• '• ' ■ 183 






Formula 203% Cont'd 


■ • 30.203.c3 


Ir.out data required: 


n » 205 


m '** 2 


x > Coordinates of geometrical 
1 center 


Density 


Direction numbers, Y axis 


Radius - geometrical 
to inner surface • 

Largest section radius 

Smallest section radius 


Direction numbers X axis 




torus a 


is for this configuration are obtained by deducting the inner sorid 
of dir.onsicr.s ?. + 3, r - 3, r - 3, (Formula 20?) from the solid 
torus of dimension R, r, (Formula 2Cf?) « 


Input data required: 


n - 206 


m' ° 2 


Location of geometrical center 
inner surface' 


p Density 


Direction numbers, Y axis 


Radius, center to inner surface 

* 

Largest section outer radius 
Smallest section oui^er radius 


B Wall thickness 


v. 



formula 207, Cor.t‘d 


Convert oc to radian measure: •*. 7t cc. /l80 


30.207.02 


C. “ B - A 


Q - C 1 /C 3 


C, =* + R . r 

6 3 


C. •» B + Qr 

4 ' . 




a 'R + 


VT/'O -i c **: S U'rv*' * 

1 w l C*. .v. nC. .1. U » 

V ■ C 3 


(3C 2 C]) - 2Q C 6 ). 


•• /~ V 


Centroid: 


p C T n , 

S = C 3 


^-0 c*» /i „ 

Ui o, C/- 


oV 


-m vp /* 

4 O 


3Q c 0 c,.) 


2 3' 


Center of gravity in reference -axis system: 


\ . 


y + AS , 7. = x + s / Z “ z 


-1 


Preliminary computations for delta values: 


0 = <n 

1 ^ • P-O 


•p = T 
2 ■ 1 


2 


P = T 
* *< 


1 *1 “ X 2 
x ■ ■ y ?1 . 

U = r + £?.. 


T» c* fp ^ • rn 

\ T 1 “ x 2 . 

P - T ^ - T ^ 
■$. 1 l 2 


C = SIN ^ COS c> 
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30.207.03 


.‘Ci'r.Vvilw- ~u i j, wv.. o 1 c. 


2 m p 2 3y 

T ‘2 - ■ L l> 


V, 


P (•?* „ J* rp ^ 

\ -* J . /) «*■ A -> ,/ 


i ,- (io u 2 p „ - 15 us p , + 6 if- ?J 


12 


-p 


1 ,-U .. 

.f -> Tl ^ r 


3 • 


„3 


.2 „2 


1C 


(5 u ?, - 10 U-" S ,P 0 '+ 10 U E P_ - 


/= (F, - F 3 ) 


/- (F 


V. 


FI (?“ + S J r -* R‘ r‘ + R r J + r“) 

3 ' • ’ •. 


,2 2 


5 U E 3 P. + E^ P_,) 
4 3 


Delta values in Principal Axis Systen: 

,..2 


■6 

'6 


7> 

V 

/=«(2?2 + F ? ) 

-> 

v/ 

X = 

(" s A f 6 ) 

c> 

Z'« 

■*< ? s ‘V 


Delta values in common reference axis systen: 

£i Y - A , e > V + A ^ + Aj 

A X -/.»ay + $x &H 

A z = A Vf + t>zc + ■ ip c>£ ' 




Rcrr.uis. 207;, Cant’d 


30.207.0U 


In out data reouiredr 



direction numbers of Y axis 


direction numbers' of X axis 


Radius to outer edge v 

Radius. to inner edge 
disc thickness - inner edge 
disc ‘thickness - outer edge 
half-angle - degrees 


X 





30.20-3.02, 


.* c it i XI ci 2 l*j 5 Con. ^ cl 


direction’ cosines of Y axis with reference axes: 

yy - Vd 3 , ■$, - °/\ 


Direction cosines of X axis with reference axes: 

A, “ c/3 2 , y\ a e /^2 s ^ x = f / D 2 

Direction cosines of Z axis with reference axes: 
= oAy - y- - h/D v n5 a i/D- 


oor.ver ' 


-.-rl 


le to racism, measure: cc ~ - ■ f 7C cc _/ / so 


Define: 


0 « 


C 2 “ R 


2 ‘ 2 
- 2 R - r 

e *= -5/ -/< ^yy cre 


C " c=c B 

C, “ R r 

r I 
*y 

r = six (2 OC ) 


^ cc 


cy » /o ec • B 

Cg “‘r-R 2 . 

Cj s 2 R ~ 3 r 


w » y c i c 3 <v* b > 1 

t ' 3 j 


— U a 



30.203. 03 • .. ' 


?cr-.ul& 203, Coni-d 


j c 6 ~ 2 C b + R 

L C 6 ** C h 


1 


ULS C GCIOO U 3' 1 VC of C oC r o “ 

C •? , . _ x . h ~i 

J * r if 


V - 


i P-* (c + C 

V w-, 


L * C 9 * r 5 


2 axis co~.por.ant of C.C*.: ? « 0 


y = y + X.s 

to 

X = X * S 

^ V 

• s ~ . s + S 


+ X. 


tr 


V««V 


*4 V 



Products of inertia about centroidal axes: 


*0 

X 

■p 

' z 




30 C;L 


3 r c * r 




- vi v s 






193 



r ~ “ 

°7 j R U (ha - 5r) + r 5 j 

T ° C i L ... -J 

>■> ‘ J- “ Cr* j. ■ ig^ 1 


C 5 F 


B 2 C ? Cg 


^ j 


. 30.203.Cli 


olta values about centroidal axes: 


V 
s-A **• 

•--- 

CM 

> 

... 

J 

u, 

V 


O' S 

- 

2 

C- - 17 S 



o z 

= 

? - 17 (Y 2 + S 2 ) 



Delta 

val 

ues in common reference 

axis system: 


A V 


/■t t> Y " A* b; c 

+ ts -z'a,K 

0 

a 

c— 

<3 

A 


<-y\by. 


a 

1 ■* 
' \ A 

-• 

^ ?v . f' 2) 

A ^ • •*' ^ C5X . 

lj 5 A " A t 4. 

p 




30.203.C5 


?or:rula 2GS_, Cont'd 




location of reference 
point 



, density 


u (“ direction numbers of 

c J ^ e:o.s ■ in sense shorn 



outer radius 


r 

B 

PC. ■ 


inner radius 

thickness at outer 
edge 

hhlf-angie, degrees 



direction numbers of 
X axis in sense shovm 


195 


t 







t 


' VT. 0 



N8120R: 72-028 


APPENDIX D - / 


PROGRAM 12001B 
SAMPLE OUTPUT SHEET 


197 



' I 



LAUNCH CONDITION WITH SHIELD 




MASS PROPERTIES SUMMARY 


0005 0001970 


PAGF 

l-l 

M A 

PART NAPE PART NO. 

WEIGHT 

LB. 

CENTER OF GRAVITY 
INCHES 

GIMBALED INERTIA 
SLUG-FT. SOU AP.ED 


PERCFNT 


2 

PROPELLANT FEED SV 1138623 A 

5488.0 

X 

45.4 

Y Z 

-.7 .3 

X-X 

1270.84 

Y-Y Z-Z 

1707.56 1 7 8 2 . 82 1 

EST. 

100 

CAL. 

ACT. 

3 

4 

NUCLEAR SUBSYSTEM 939J740 

NOZZLE ASSY SLBSYS 1138200 

15524.0 

2233.0 

143.8 
246. e 

.0 .0 
.1 -.1 

1212.00 

453.28 

51514.03 51514. C3 

26236.53 26235.32 

63 

100 

37 


5 

6 

INST +■ CONTROL SUB 
THPUST STR 5UPSYS 

518.0 

895.0 

59.2 

52.6 

.0 .0 

2.9 -2.9 

1 1 3.. 02 
99.05 

4C1.73 401.73 

347.26 347.12 

ICO 

84 

16 


7 

8 

PV + CLOSURE SUP S Y - 1138 808NC 

DESTRUC.T SUBSYSTEM , 1219421 B 

1803.0 

597.0 

13 7.3 
378.2 

.0 .0 

.0 .0 

270.29 

44.59 

5613.50 5618.50 

16321.49 16321.49 

ICO 

ICO 


9 

10 

EXT SHIELD -SU3SYS 1138352NC 

GIMBAL ASSY SU3SYS 1137S78 A 

9675.0' 

565.0 

76.0 

18.6 

.0 .0 

8.5 -8.5 

2475.95 

1.21 

T104.5S 7104.99 

1.23 .27 

100 

l 

99 


11 

GROWTH CONTINGENCY 

271.0 

. 111.9 . 

-.4 .6 

46.90 

534. C5 534. C3 

100 




1137400 D/MOD ENGINE MODULE DRY 
1137400 D/MOO ENGINE MPOULE PROP. 

37574.0 

85.0 

1 16.C5 
85.00 

.10 -.15 

.00 .00 

5992 . 15 
12.41 

109787.36 109860.81 
131.31 131.81 

50 

100 

5 C 



1137400 D/MOD ENGINE MODULE WET 

37659.0 

115.98 

.10 -.15 

6004.56 

1C9919. 18 1C9992.62 

50 

5C 


2 1 
22 

NC1CE 

PSOV installation 

600.0- 
327 .0 

1290. C 130.0 130.0 
-17.6 .0 .0 

.00 

.00 

.00 .00 

.00 .CO 

100 

100 



23 

COOLDOWN MODULE 

248.0. 

-19.3 - 

-54.6 -11.1 

.00 

.00 .00 

100 




STAGE MOUNTFD COMPONENTS DRY 

STAGE MOUNTED COMPONENTS PROP.- 

1175.0 

15.0 

-667.8 

-14.0 

54.9 64.0 

.0 .0 

.00 

.00 

.00 .00 

.00 .00 

100 

109 




STAGE MOUNTED COMPONENTS WET 

1190.0 

-659.5 

54.2 63.2 

.00 

.CO .00 

x ICO 




GIMBALED COMPONENTS DRY 
GIMRALED COMPONENTS PROP. 

36682.1 
85 .0 

118.59 
8 5.00 

-.06 .00 

.00 .00 

5992.15 

12.41 

1C9737.36 109860.81 
131.31 131.81 





GIMBALEC COMPONENTS WET 

36767.1 

118.51 

-.06 .00 

6004. 56 

1C9919. 18 109992.62 


. 




WEIGHT 

LB. 

CENTER OE GRAVITY 
INCHES 

ABOUT 

I NERTI A 
ENGINE C. G. 


PERCENT 





X 

Y Z 

SLUG- 

X-X 

■FT. SQUARED 
Y-Y Z-Z 

EST. 

CAL. 

ACT. 


TOTAL ENGINE DRY 
. TOTAL ENGINE PROP. 

38749.0 

100.0 

92.28 
70. 15 

1.76 1.79 

.00 .00. 

10705.87 

14.07 

295303.13 295532.37 
89.34 89 . 34 

51 

ICO 

49 



TOTAL ENGINE WET 

38849.0 

9 2.23 

1.76 1.79 

10720.07 

295403.07 295632.31 

51 

49 

93 


cu 




N8120R: 72-028 


APPENDIX E • 


PROGRAM 12001B 
LISTING 


'( fet&B- I 




V CUR 

VkCNAY *42ts2ifcr»5»5iJU 
-A'}/! 

j 2.0 O j B.'j 


DATE 16 MAY 72 PAGE 2 

16 MAY 7? 14:00:47.566 


1. PFF A 

K 7 



14:00:46 



ir 





2. KEVV/RD : 




14 : 00:49 


3 * ± i A 




14 : 00:44 



END OF FILE — UNIT A 


' 4 V Yfil" *"* ~ " ' ' ~ ' " 14:00:52 

5 _, joe 14 :_o 0 : 52 


ELRMPNT table 

t 


ASHCID 

SYMBOLIC 


24 FEB 72 

12:35:09 

0 

00136670 

14 

14 


CALC 

SYMBOLIC 


.20 FEB 72 

01:44:30 

0 

00137174 

14 

205 


GROIN 

SYMBOLIC 


24 FEB 72 

03:44:41 

0 

00144662 

14 

494 


DATA 

SYMBOLIC 


24 FEB 72 

u:n :23 

n 

00162266 

14 

29 


HEADER 

SYMBOLIC 


20 FEB 72 

01 : 44:46 

0 

00163114 

14 

13 


MAIN 

SYMBOLIC 


06 MAR 72 

09 : 46:39 

0 

00163402 

14 

72 


MASON 

SYMBOLIC 


24 FEB 72 

03 : 44:52 

0 

00165362 

14 

153 • 


MAIL 

SYMBOLIC 


20 EEB 72 

01 : 44:53 

0 

00171520 

14 

75 


MI Slum 

SYMBOLIC 


20 FEB 72 

01 : 44:57 

n 

00373552 

14 

174 


PRINT 

SYMBOLIC 


06 MAR 72 

09:16:20 

0 

00200356 

34 

505 


ASPCID 

CODE RELOCATABLE 


24 F£B 72 

. 12 : 35:09 

n 

00216214 

14 

p 







1 

00216374 

2.4 

1 


CALC 

CODE RELOCATABLE 


20 FEB 72 

01 : 44:33 

0 

00216424 

14 

136 







1 

00222204 

24 

1 


CRD. IN 

CODE RELOCATABLE 


24 FEB 72 

00 : 44:41 

0 

00222234 

14 

161 







1 

00226552 

24 

3 


; iEAUER 

CODE RELOCATABLE 


20 FEB 72 

01 : 44:45 

0 

00226602 

14 

9 







l 

00227000 

24 

1 


MAI 1 

CODE RELOCATABLE 


06 MAR 72 

09 : 45:39 

0 

00227030 

14 

12 







1 

00227300 

24 

1 


•IAS IN 

CODE RELOCATABLE 


24 FEB 72 

00 : 44:52 

0 

00227330 

14 

47 







1 

00230552 

24 

1 


MATL 

CODE RELOCATABLE 


20 Feb 72 

01 : 44:53 

0 

00230602 

14 

19 







1 

00231 234 

24 

1 


Ml SSI M 

code relocatable 


20 FEB 72 

01 : 44:57 

0 

00231244 

14 

44 







1 

00232414 

24 

1 


PRINT 

CODE RELOCATABLE 


06 MAR 72 

09 : 16:20 

0 

00232444 

14 

28 Q 







1 

00242362 

24 

1 





ENTRY POINT TABLE 






JN*. 

ASPCID (AS 

!"C ID/CODE ! 1 000014 

CALC 

(CALC/CODE) 1 001773 

CPDIN 

(CRDIN/CODE5 

1 002714 

© 

MLADE1-J (HE 

ADFR/CODE) 1 000023 

MAS IN 

( MAS IN/C ODE ) 1 000632 

MATL 

' (MATL/CODE) 


1 000255 

o 

MI SLUM (Mi 

£j^U‘VCOu)r* ) 1 v 0 0 0676 

print 

( PR I NT/COBE > 1 003240 





i 


block table empty 


COBOL LIBRARY TABLE EMPTY 
P IOClOURE >!Ar>E " TABLET empty 


6 . LIST 1 


14 : 00:52 



DATE 16 MAY 72 PAGE 


3 


VRCL'm Y p '~\dc,Z Id p b * 30 0 


£S ELT aSPC ID p 1 p 720224 p 45309 


OOOO'Oi'"' ' ■' SUsJROUTiiNE ASPCID 

too 302 WRITE (6. 10) 

000003 10 FORMAT ( *1* 

000 304 1 50X * AEROJET SOLID PROPULSION COMPANY* 

0"'J005 2 / 54 X * SACRAMENTO CALIFORNIA* 

ur'KjjOfa __ 3// 2.0X_ * * *# PROGRAM COMMENTS ***«_ 

0*10007“ ' ’ “ ' 4 / 20 X 'PROGRAM NUMBER-NEW Sbd03A OLD 3 20(1 » 

OObOJO 5 / 20X * PROGRAM TITLE- WEIGHT. BALANCE * AID INERTIA * 

OCOOC9 6 / 2CX 'PROGRAM WRITTEN JUNE 1970 BY R.V. ALEXANDER * 

030010 " 7 7 2 OX * CONVERSION FROM' IBM 7004 TO UNIVAC ' 

U00011 7 / 2.0X 'MODIFIED MAR 72 BY W. REUSS* *NEW 

C0U012 8 ) 

duo'oi3 - ’ return' 

000014 END 




V . 4 . + 2c.2i ; 5 » 3U0 


DATE 16 MAY 72 PAGE 


u 


C ELT'CALC. it 720220. 6278 


0 30001 
000002 
000003 
0 0 00 Oh 
000005 
U ' 0006 
0 0 0007 
00 0006 
OGGOCP 
OOuO 1C 

c o o o i i 

*. w 0 >' ■■ -C . 
0 0 0 1 1) 
006014 
0 0 0 015 
JjOvlfe 
j o :* :7 
& 

000019 
CO 0 0 20 


000021 
<>00022 
O'jQG 23 
O', 00 24 
i. i ; j 0 ?. 5 
(i 0 o 026 
r,0o027 
U ! j 0 02 3 
000029 
0 U 0 0 50 
U I i j 3 ■ J 1 
o0u)32 
0 0 0 033 
Coo 054 
00)0 35 
'-'4 0 036 
U 0 j 0 57 
000033 
00.-039 

i/o'M’vO 


0 1- i. 041 
>, 0 0 4 2 
OoU!) 13 
00 ,044 
v- o U 4 5 
OLO 0 46 


CO 004 7 
l ' CO 104 3 
’ £20 00 049 
^y^OOCSO 
300051 
0 0052 


0 C 3 O' b 3 
0 J 3054 
0 C 30 55 


000056 


SUBROUTINE C A'_C (DEL IX » DEL X V > DELIZ i MIC » Xr Y"> Z » R» S* W~) * 

C *** SUBROUTINE FOR CALCULATIOM OF PART MOM. OF X ABOUT OWN C.G. 

G i.hRpS , H ) =V,/4 . * ( R*Rl-S*S ) +W* H*H/lP-.*(1.4g ,*R* S/(R+S) **2 ) 

"IF "(MIC .GE. 20) GO TO io 
C **.«■■ PARaLLELOPIPED (SOLID ONLY). 

r ! =i«uc-io _ ____ 

GO TO (lp9»9fl»9>9>l)»N 

1 DELIX=W/12.*(Y*Y+Z*Z) 

PEL I Y = 'it/ 1 2 «. * f X * X + 7 ■■<?:) _ . 

'pel I ?='•)/ 12 . * ( X*X+Y*Y ) 

GO 10 99 

1C IF (MIC ,GE_. 30) GO TO 20 _ _ 

frV&trum of a cone 

D;:R**4+R**3’i'S+R*R*S#S+R*S*«--3+S**4 

E — R^r ___ _ ________ 

'f'=!P-.-34 a 4.*)?*>'3> : =sV10^RVr'>><;*S+4.*R*S4=!c3+S*>'4 

M=MiC~20 

G 0 TO ( 2 > 3 > 9 » 4 » 5 » 9 1 6 1 1 ) i N _ _ 

2 DEL I X= ♦ Z*mi R**5-S**5 l / < R*R*R-S*S*S ) ’ 
DELIY=.l5’*‘/XD/E+X*F/4./E/E) 

PEL 1 2 = 0ELI_Y 

GO TO 99 

3 r: E li>;sw/2.*(r*r+s*S) 

PEL I Y=G ( W c R r_S ? X ) __ 

PELIZ=DELIY 

GO TO 99 

4 PELIX=.16-!-*'»(D/E4Y»F/(4.»E*E) ) 

'PELIY=*3*W*<R**5~S#*5) / (R#i'3-S**3) 

DELIZ=UELIX 
GO TO 99 

5‘ DELIX=6(WVR'fS»Y)' 

DEL I Y- . 5*W* ( R*R+S*S ) 

DELIZ-DELIX_ _____ _ 

GO TO 99 ~ 

6 [ELIX-o 15*W* (D/E+Z*F/ (4.*E*E) ) 

_peliy=d;-:li_x 

DEL 12='. 3-Sw* t R**5-S**5>7 ( R**3-S**3 >’ 

GO TO 99 

_ 7 DEL I X' G ( W r R » S » 2 ) 

DELI Y--DELIX 

DEL I Z= . 5 *'<!* ( R*R+S*S) 

GO TO 99 

20 IF (MIC ,GE. 40) GO TO 30 
C *** SPHERE CODES 

N-MIC-30 ____ 

IF ( R' .EG. 0.) R=X/2. 

GO TO (fi»ll»12f9)»M 

6 DELI X- • 4*'..'*R*R 

DEL I Y -DEL! X ~ ' 

DELI 2-DELI X 

GO TO 99 j 

irbELIX = '.6V,fi667*W*R*R 
DELI Y-DEuIX 
CELIZ=DELIX 

GO TO" 99 " " " * “ 

12 a=(R**5-S**5)/(R**3-S**3) 


I 



V ROD AY t 420-21 >, t b t 300 


DATE 16 MAY 72 


.000067. 
0 0 0 C ‘56 
000039 
Co 00 60 
COCO 6 1 
tiOOOoS 
C 0 0 0 6 3 
00 00 Y4 
COOOoS 
COO 0 56 
’ OOOOj7 
0 C u 0 6 6 
000059 
000070 
000071 
0U 0072 
0 0 0 0 73 
000079 
0 00075 
00 0076' 
OOUu 77 
000078 
000079 

oocoao 

OtiO OBI 
tioooa‘2 
000083 
0 3 0084 
0 0 3 065 
O', 0 0 5f> 
U 00 067 
0 0 DO Lin 
o < j C 089 
0 DOC 90 
' DC 00 91 
CO 0092 
DC. .09 3 
Jl: 01*94 
DOC 095 

- ■ 0 00 c- 6 

Goo 097 
QL9U9B 
00U099 

■; o c coo 

OOCx-Ji 
0 0 G l Q 8 


cV> 

O 

CO 


Dc 01 03 
0 0 0104 
0 0 0 i 05 
0 0 0106 
000 107 
0 0 L .1 J Vj 
0 0 0109 
GoGllC 
J'iOlll 
DDC1 12 
0 0 0 1 1 5 
000114 
-j 00 115 
JCG116 


]'i.cLIX = « v*w*4. - . __ 

DELIY=DELIX 

DELIZ-DELIX i 

_GO_ T 0 99 ; ! 

30 IF (MIC .GE. 50) GO TO 40 

C *** TORUS CODES 

N=MIC-40 _ _ ' 

"go to ( 13 » 1 47 9 * 1 5 *1 &7 9 > 1 7 » 1 8 » 9 5 » N ~ " ”■ 

13 IF (S .EO. 0.) S=X/2. : 

DfcILI X = »25*W*_( 4^+R<=R+3. *S*S_) - 

DELI Y-W/8* * ( 4 • *R*R+5.'*5*S) 

DELI2-OELIY ■ 

GO TO 99 I 

““ 14'Tf'"'(s '.eg Vo.) s=x/27 

nELIX=W*(R*R+l.S*=S*S) 

[)ELIY=W*(R*R/2. + 1.25*5*S> ; 

DEL I 2-DELI Y " ~ * " , 

GO TO 99 

15 IF (S .EO. 0.) S=Y/2_. 

DELIX-W/b.* ( 4 . *R+R-t-5o *S*S ) . ! 

EEL I Yu- . 25*W* ( 4 . *R*R+3 . *S*S) 1 

_ _ DEL I Z=DEL I X_ _ __ „ 

GO TO 99 ; 

15 IF (S • F.Q . 0.) S = Y/2 . - 

_ DELXX-W* (R*R/2.+l .25*S*S_)_ ___ 

" DCLI Y=W* ! P*R+1 #5*S*S ) 

DEL 12-DEL IX ' 

00 TO 99 _ _ „ 

17 IF (5 .EO. 6.) 5 = 2/ 2. 

DEL I '/- W/8 . * ( 4 . *R*R+5 . *S*S ) 

DcLIY=DELIX . 

DELI2=.25*WM4.*R*R+3.*S*S> 

CO TO 99 1 

18 IF (5 .EO. 0.) S=Z/2. 1 

DELXX=’r?*(R«R/2. +1.25*5*5) 

DEuIY=DELIX 

f: E L 1 2= W * < R_*R + U 5* S * s_) 

“ GO TO 99 " ~ | 

40 IF (MIC .GE. 60) GO TO 50 ; 

C *** HEMISPHERE CODES ____ _ ! . 

"’IF" <R '.EO. 0 . ) ■ 

1KRITF (6. 19) MIC 

19 FORMAT. ( 1H1 > 20X g 9 R N OT INPU T FO R H FMI SPFR E, C ODE=’.I2- ) _ . 

fJ=MIC~50 

P=R--R *W , 

A= . 4 *P ... ___ 

LI— » 666667*P 
C=.416667*P 

. D-.26TP. _________________________ ‘ 

" "CO T 0 (4 1 . 42 » 9 » 43 ► 4 4 r 9 » 45 r 46 » 9 ) r M "" ----- * ”1 

41 DEL I X=A 

DELI Y-D ' 

DEL I 2=0 
CO TO 99 

__ 42 DELI X=6 ■ 

DELI Y=C ; 

0ELI2-C ! 

GO TO 99 

" 43 DELIX-0 

DELI Y=A j 



VrtOM/.Y f 4262 18 t 5» 500 


000127 
000128 
0 0i)*2S 
Ov. 01-50 
OCUl 31 
000132 
OUUJ..32 " 
000134 
0001 3 5 
0 0 0 1 5o 
00 j j. 37 
0 0 0.1 08 
000139 ' 
0 GO 140 
0 U 0 1 4 1 
0 or- 142 
000 3.40 
00 0144 
000145 
000146 
000147 
'00 014c 
00. 7 149 


CO 01 

30 

24 

OELIX- 

12 - * ( 

Ot'Oi 

51 " 


DLL 1 Y = 

. 5*W*R*| 

0001 

•32. 


DEL1Z= 

DEL IX 

c o u ; 

53 


CO TO 

99 

o u oi 

'.> 

25 

FELIX- 

w/i 2 .*( 

CG.il 

5 b 


PELIY- 

'.-.' " R *R 

OJOJ 

56 


r>ELIZ= 

HELIX 

0001 

:.-7 


GO TO 

99 

0 0 0 3. 

56 

26 

HELIX- 

W/12.*B 

r t) n 1 

59 


DELI Y~ 

o 5 v W v ( R 


1 0 


l EL 12- 

HELIX 

GO., i 

t)l 


GO TO 

99 

0 1* j .1 

(.2 

27 

DEL ,IX= 

w/i ? « * ( : 

OCL'j. 

b3 


PELIY= 

HELIX 

OCUl 

64 


DCLIZ= 

a 5 W ^ R J r | 

0 0 0 1 

65 


GO TO 

99 

LI Cl LJ .1. 

b6 

2fi 

DEL IX- 

W/12- 4 (, 

000' 

67 


DDL 1Y- 

HELIX 

J tj 1 

53 


TE'-iZ- 

W*R<R 

0 0 0 1 

o9 


GO TO 

99 

c ? c ; 

70 

29 

DELIX= 

w/i.?.*c 

Cut .1 

71 


DELI Y= 

HELIX 

000.'.. 

7 2 


CEL 1 2- 

a 5 ■> \\ * ( R' 

C 0 f« 

73 


GO TO 

99 

0 l ^ ^ 

74 

60 

I- (,'IIC ,.GT„ . 

CO i. 

7 b 

C '*** 

CYLINDER ABOU' 

coo: 

76 


M=MIC~ 

70 


DELIZ=0_ 

C-0 TO 99 

44 DEL I X-C 

HELP, '=3 __ 

DELI2-C 
GO TO 99 

45 DELIX=D 

deliy=d 

CEL 1 2-A 

GO TO 99 ; 

4 6 PEL I X-C 
DELIY=C 

PELIZrO 

C 0 TO 99 

50 IF C r- I C .CE. 70) GO TO 60 

** CYLINDER CODES 

"N=MIC-60 

A=3.*(R*R-i-S*S>+X*X 

P = 3.*(R*R+S*-S>+Y*Y 

'C=3 . # ( R*R+S*S> +Z*Z~ 

GO TO (21 >22»23 f 24»25*26r27f28»29> »N 

2 1 PEL I X- » b*W*R*R _ 

L'ELI Y-W/12 • * ("3*R*R+X*X ) 

DELI2=DELIY 

GO TO 99 

22 DELI X = W*R*K 
0ELIY=W/12.*(6.-i'R*R+X*X) 

PELIZ=DELIY 

GO TO 99 

23 DELIX=.5*W*(R*R+S*S> 

DELIY=W*A/12. 

DEI-1Z = DLLZY 

GO TO 99 

24 D£LIX = ’¥/:2.*<3.*R*R+Y*Y ) 


70) GO TO 


6 
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000177 
'J C 0 i 7 3 
0U1179 

- 1 0 C 1 j? \) 
(j 0 015 1 
000132 
GO C l 63 
0GtA64 
ut <C 11 3 
S i 1 < 0 r ' = 
e 1 0 .• 37 
OoO i j3 
DO 01 69 
00 0.1 -0 
r j 0 ' 71 

(J.j 2 

•)0u5 03 

0 0 0 .t c ' '-!• 

CO 1 '05 
t ' o 

jO i 0 3 
0 0 J 1 J9 

fi 0 0 2 1 0 
0 OUT: 01 
o i, .. 

0 1. 1 C 2 0 3 
GO 02') 4 
0U0205 


A=SaRT(X 3 X+Y*Y±Z*ZJ ___ 

H-l . + ( X/A ) -• *2 
( = 1 . O' ( Y / A ) ^ # 2 

n —it -v i / / a j o .^ 2 _ 

F=A*A/12. 

P- 1 o -• ( X/A ) **2 

( 3 = 1 . -( Y/A )**2 

r=l.-(2/A>V*2 

C-0 TO (31»32»33?9> »N 

3 1. X.=R , i ; i ( J *1 . _ _ 

DEEIX=^'(0*E : iF*p') 

nELIT=W*(C*EOF»0) 

nf;Li2=w*(n*E+F^T) 

GO TO 99 

32 0— » 3v R *R 

n£LI;; = W*(B~0>F*P) _ 

DEL I Y=V«* ( C*0+F*0 ) 

DELI2“W* {0*0+FcT ) 

(0 TO 95 

33 . u = .25* ( R <•" f ; * S ••■"?! ) 

DEL IX=W* ( i K-HvF^P ) 

D F L IV - V. •■-. ( C'M-.-F*Q ) _ 

DKLIZ =, V ! >‘ ( D*H+F *T ) 

GO To 99 

9 t.TilTF: (6»34) MIC _ __ 

34 FORMAT' ( ini » ' ERROR ON ■ 
99 CONTINUE 

RETURN _ 

END’ ’ 


o 

Ul 




a 


out) 0 01 
000002 
000003 
00 00 04 ' 
000005 
U 00 006 
0 0 0 0 0 7 
000008 
000009 
QUO 0.10 
OOuOil 
0 0 0 0 12 
0 0 0 0 i 3 
0000 J. 4 
0 0 0.0 1 5 . 
0 0 0 !j : t 
000037 
0,'UOUS 
000019 
000020 
GO 0021 
GUO 0 2 2 
00001.3 
ooor.'pq 
000 '.'25 
00C02& 
000027 
000028 
000029 
000050 

0 0 0 0 5 1 

000032 
000053 
0 0 0 U 5 4 

OGC035 
0 0 ') 03d 
0 Go 057’ 
000C33 
0 Go 039 
i) 0 u O' 4 0 
000041 
001,04-2 

00004 3" 

000044 

OCOO'-o 

0 0 4 0 4 6 

00 00 47 

0 0 U U 4 B 

000049 

000050 

000051 

0 00 ('52 

000053 

000054 

0 G G 0 3 5 

000056 
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ELT CROIN, 1(720224, 31431 


SUBR-OUT I ME ’CRD I N ■ ’ 

C *4:* CALCULATIONS FOR ALL CARD INPUT DATA FOR ALL EXCEPT FIRST CARD 

C m WHICH WILL BE A MAJOR ASSEMBLY. PRINTI NG O F 8 DETAILED WEIGHT 

C *** STATEMENT* IS ALSO CONTROLLED HERE. 

C Oi'.MoH DX , 0 Y , DZ , G . G P’X , G I H Y » Gl M2 » I A , I AFLG # I AM , I A SUB #IP»TPFL1* 

_ 3 IPFL2 * IPSF , MIC , NI « ML I ME t T6C , 1'IOX »_TIOY » TTOZ * TMC. * TPSC » TPRT1 ,TPRT2_» 

" 2TPKT3 f TPRT4 ,TPRT5> TPRTN1 , TPRTN2 . TPRTH3, TRl t TRS * TW ► TWC »TX»TX1» 
3'fY»TYl»TZ,TZl *WTHF»M» 

4MPF(10) » IMA (40 ) , PSC ( 40 >Hn/C ( 40 ) »GC(40) #_CK(j4 0) ,PRTK40> ,PRT2.(40> 

5PRT 3 ( 4 0 ) , PRT 4 ( 40 ) » PRT5 (40) ,WX(40) »WGX(40> »WX'x<40i »WGXX(40) *WY(40) t 

6V'YY ! 40 ) » WGY ( 40 ) , WGYY (40 ) ,WZ(40> »WGZ(40) »WZZ(40) »WGZZ(40) *W(40) , 

7WG ( ‘M3 ) , XIO ( 40 ) p_XG 10(40) . Y 1 0 < 4 0 > » YG 10 ( 40 ) , ZIO (40 ) .ZGTO(40) »X(40) » 

Q X G ( 4 0 ! » Y ( 40 ) > YG ( 40 ) > Z ( 40 ) , ZG ( 40 YrWXZ ( 40 JVWGXZ < 40 ) » TIX < 40 ) «TGIX ( 40 )~ 
9 » T I Y ! 40 3 , TG I Y ( 40 ) , TX 2 ( 40 ) , TG 12 ( 40 > » PW ( 3» 40 ) *TPW(3,9) , 

AWXM<9) fVIGXMt?) t Vv X X (•'. ( 9 > »>'G X X M ( 9 ) *_WY M.f 9 ) » WG Y M _(_9 ) tWYYM(9> rWGYYM(9).» 

EY.'ZM ( 9 ) , WGZM (9) ,WZ2M(9) *WG2ZM(9) »WM(9> »WGM<9> ,XI0M(9) >XGI0M(9) t 
CY I OA i ! 9 ) # YGIOf-' (9) . Z I OM ( 9) » ZGI OM ( 9 ) *XM(9) , XGM<9> ,YM(9> »YGM(9> »ZM(9) , 
DZGM (9) , WXZM ( 9 ) rfcGXZM 1 9) , TIXM { 9>i_TGIXM< 9) » TI YM ( 9) » TGI YM ( 9) » TIZM (?) »_ 
ETGIZM (9) > WXY ( 40 ) »WY2<40) ,WGXY(40) »WGYZ<40) »VxVm<9> »WYZM<9> , 

FAApAB* AC, AD, AE, AF,AH,AI»AJ» AK , AL, AM, AN, AO , AP , AG , AR , AS , AT » AU , AV » 

_ G A W » A X» AY , A Zr_W C- XYM(9) r W GY Z M ( 9 ) ,WTMT L< 26) 

' NJ = 0 ” " " 

NK = 0 

1 = 1 

J=1 
K = 1 

C_ *** ZERO O UT DATA FO R T E MP 2 (S UB-ASSEMBLY). 

B S W — 6 • 

ESWXr 0 . 

PSWXX=0^ 

~ ' "p'SWYrO; 

LSWYY=0 . 

BSWZ=0 . . 

E S vl Z Z — 0 a 
BWXZ = 0 « 

B W X Y = 0 . . 

•*bwyz=o;“ 

!?TIOX = 0 . 

nTIOY = Oft 

’ btioz=67 

E*' GSW— 0 ft 

bgswx=o. . J 

” bgswx:<=o. 

BGSWY=0 , 

BGSWYY=Q. 

BGSWZ=0 • 

BGSWZZ— 0 « 

R G V: X Z = 0 e _ 

BGWX Y = 0 o ‘ 

BGV;YZ=0 • 

bGTIOX— 0. __ ’ 

B g TIO 'Y = 0T - - — " ’ ’ " 

BG l I OZ— 0 » 

ZSW.-0ft 

ZSWXrOft"" ‘ 

zswxx=o. 
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0001 5 7_ 
OOUG58 
000059 
CO 0060 
000061 ‘ 
00CG62 
00 0 063 
0 0 0064 
00U065 
0 00 0 6 6 

' 0GG0o7 ' 
0 C ') 0 68 
000069 

”"Cu0070 
000071 
0CG072 
005073' 
0 0007'-! 

0 0 0 T 1 7 5 
0 UuO 76 
ui/0077 
U 1 1 1- 0 7 6 
0 C 0 0 7 9 : 
001050 
000031 
GO'J 2" 
CO 00 83 
ui- .-084 
000 085 
000086 
00 CO 37 
0OU066 
000089 
COO 0 90 
0 0 u (' 91 
00GO92 
000093 
’ C0-j094 ' 
600098 
nouocc- 
C 0 c 97 
CC0C98 
000099 
.-00 ICO" 
000301 

■-j 0 vj i 0 c. 

Oil 105 
000104 
000105 

'"000105 
0 C 0 3 0 7 

JO 001 108 

(^j)0 0 0109 

•ylOOCllO 

iioolli 

0 0 G 1 1 2 
00 0113 
COO 1 14 
000115- 
000.116 


2SWY=0 
Z5VJ Y Y-b . 
ZSW2=0. 
2 Sv 


' 22 = 0 . 


2V/XZ-0 . 
ZWXYrO. 

_ 7VYZ-0 . __ 
ZTIOX-O . 
ZTIOY=0. 
__2TIOZ=0.__ 
2bSW=0 » 
265WX=0. 

_ ?GSWXX = 0 ._ 
ZGSVv Y=0 • 
ZGS-,7 Y Y=0 . 
2C5v.Z=0, _ 
~ 2GSWZZ=0 . 
2GWXZ=0. 
2 G;*.'XY=0 . _ 
ZGWYZ=9 . 
ZGTIOX=0. 
2 6 f 1 0 Y = 0 » 
26T 102=0. 

L READ £ S » 5) 
1TPRT4 i 


IAK»IAf IASUR. XP» TWC*TgC#TMC»TPRT1 » TPRT2 * TPRT3 » 

« TPRTN .1. * TPRTM2 , TPRTN3 . Tfr » TX * TY . T2 > MIC » TX 1 » T Y1 # T2 1 » TRL » 


MAR72 


»I2>3X>2F4.1»F3.1» 


20 

20 
C v** 
8 

7 

C **=* 


.1 


C * ■**= 


2TRS t T IOX > TIOY » TI OZ 

5 FORM AT 1 4 12 » 3A1 » 4A4 » 2 A4 , A1 f F6 . 1 >F5.1» 2^4.3 
1F4 «lfF3«l»T60» 3F7 . 0 ) 

” 7PRT5=6H 

IF 1 1 AM .LT. SR) M=I AM 

CALL MAIL _ 

'"ir Tip .ge.' k > "so to 6" 

IF (NX .EO. 1) GO TO 2 

IF _( I ASUE .GE. J) GO T0_3 

IF (jiJ . EO. 1)' G0"T0'4 
IF 1 1 A .GE. I) GO TO 7 
IF 1 1 AM ,EQ. 88) GO TO SB 
THIS CARO SHOULD EE A FART CARO > PUT IS MOT. 

WRITE (6 »f) I AM f MIC > TI OX 

FORM,\T_ ( 1H1 ? » BAD INPUT CARD-M- A. r ; .12 1 ' CODE=»»I2r* IOX=»»F7.0> 

'STOP.' ' 

IF (MIC .NE. 0 .OR. TIOX .NE. C.) GO TO 

PRINT HEADING_F0R_ ASSEMBLY 

NLl'NE=MLINE + l 

if inline .gt. 44 ) call header inline) 

WR I TE 1 6 *i 2 ) : ,yt-U I A > TPRT 1 , TPRT2 »TPRT3»TPRT4 f TPRTN 1 .TPRTN2.TPRTN3 
FOkMAT ( 21 3 » 12X ; 4 A4 » 6X p 2A4 « A 1 ) 

MOVE INPUT DATA TO TEMPI FOR LATER 

1 A M 1 ~ I A ,«1 

1 A 1 = 1 A 
T11=TPRT1 

T12=TPRT2 

T13=TPRT3 
T14=TPRT4 

T15=TPRTS A 

M J=1 
GO TO 1 
IF -MIC . ME 
PRINT HEADING 
NLINE=NLINE+1 


MAR 72 


MAR72 


PRINTING AS ASSEMBLY WITH TOTALS 


_MAR72*NEW 

MAR72*NEW" 

**-3 


0 OR o Tioy _.NE. 

FOR SUB-ASSEMBLY. 


0.) GO TO 13 



VROIJAY » 42d?13p 5» 300 


DATE .16 MAY 72 PAGE 10 


000117 
000116 
000119 
000120 
000121 
000122 
000123 
"0 00124- ' 
000125 
000125 
000.127' 
0031.26 
•J 0 0129 
000130 
000 J 31 
0 0 0132 
0 C C 1 3 3 

00 Ol 34 
000135 

C Ij C 1 5 . J 

000137 
PC 01 33 

0001 o 0 
0 0 C 1 40 
00 0141 
000142 
CO 0143 
400 J 4 4 
000145 
0UG146 
000147 
0 J J 3 4 j. 
01-014 9 
..OU150 
030.' 51 
000152 
000 to3 
000134 
00 01 55 
0 0 0 1 t> 
COOl 57 
000132 
G00159_ 
0 o 0 1 0 0 
0 o 0 1 fa 1 
000162 
000163 
UOOJ 64 
00 0165 
0 0 0 1 6 5 
0uQl67 
COO 166 
u 0 0 169 
000170 
300171 
0 0 J 7 7 
0 0 0 .1 7 3 
00 3174 
000175 
C 0 0176 


IF (KLINE... GT. .44) CALL HEAD ER ( NLT ME) 


WRITE ( 6 » 14 ) IAK» IA.IASUB*TPRT 1 t TPRT 2 » TPR T 3 » 7 PRT 4 # TPRTNl t 
1TPRTN? f TPRTN3 

14 FORMAT (313»11X(4A4»4X*?A_4»A1) __ 

MOVE INPUT DATA TO TEf'P2 FOR LATER PRINTING AS "SUBASSEMBLY WITH' 
I AM 2b I AM 

IA2=IA 


MAR72*NEW 
**-l 
MA R72 *NEW 
TOT aLS« **-l 


6 

•t* # 


TO i 5_ 

M I 0 NOR 


TIOX INPUT. 


.16 

15 


C 4 4# 

1CALL 
C ***.. PART 
C ' * * * 


17 

4 i" # 


1ASUR2=IASUB 
T21=TPRT1 

T22=TPRT2. 

T25=TPRT3 
T24=TPRT4 

T75'-TPRT5 _ 

MK = 1 
GO TO 1 

IF (MIC »ME . 0 .OR. TIOX . NE. 0.) GO 
"RAD DATA CARD "AT PART LEVEL- NEITHER 
WRITE (6> 16) I AM t MIC » TIOX 

FORMAT ( lril t • RAD DATA CARD AT PART LEVEL > M. A .= « , 12 r » CODE= , »I2> 

L ’ IOa='pF7.0) 

SwX=TW*TX 

CALC(;LATE all data for part _level-momehts. 

'SWXX=SWX*TX 

swy=tw<=ty 

5v;yy=swy#ty . 

'SKZsfwitZ 
SWZZ=SWZ#TZ 
SWX X—T z 
\SWXY = SWX*TY 
SWYZ=SWY*TZ 
IFtTW.C . EQ . 

I F ( T'./C . EO . 

TF < TuC .EG. 

IF (MIC .ME. 

PART 'MOMENTS 


AA) 

at) 

AE) 

r \ 
u / 

OF 


PW(l»M)=PW(lrM)+TW 
' PW < 2 f M ) =PW ( 2". M ) +TW ' 
PW(3#M)=PW(3».v)+T w 


INERTIA ARE NOT INPUT AND MUST BE CALCULATED. 
CALC ( T I OX p T IOY , Tin? , MI C . TX1 » TY1 » TZ L » TRL TRS » TW ) 

MOMENTS OF INERTIA ARE INPUT. 

PSi NT* OF ITEMS" AT THE PART LEVEL. 

NLirc=NLINE + l 

IF (NLINE .GT. 44 ) CALL HEADER (NLINE)_ _ 

WRITE (6* 17)1 AM » I A > I A SUP ? IP . T GCVTPRTl » TPRT? » f PRT 3* TPRT 4# 

1 TPilTN 1 > TPRTN2 * TPRTN3 »Tw»TX »TY»72» SWXX » S'..'YY » SWZZ » TIOX » T IOY r TIOZ 

F OhFAT ( 4 13 ? 1 X > A1 » BX p 4A4 . 2X . 2A4 »A1 > F 1 D .1 3-7 . 1 »6E6 . 2 ) 

"ADO TOTALS FROM" PARTS TO TEMP2 (SUB- ASSEMBLY ) . 

BS.V=5S'«!+TW 

BSWXrBS.VX+SwX 

" B S W X X = B S W X X + S v; X X 

REWY-BSWY+SWY 
B S .V Y Y = B S W Y Y + S W Y Y_ _ 

? S vl 2. - D S ’•/ Z + S v; Z "" 

Rsi/zz=as;.'zz+swzz 

F. V. X Z = D W X Z 4 S W X Z 

' BC.XY=P , .\ , XY+SKXY 
BW I Z=BW Y Z+SVi YZ 

btiox=tiox+dtiox 

2TI0Y=TT0Y-:-5'ri0Y 
•J T I OZ-T 1 0 Z+B T 1 02 


MAR72*NEW 

**-l 

_MAR72*NFW 

**~1 


, N 


.c. . 


IF (TOC 
*44 INCLUDE ITEMS 
R G S W — B G S W + T W 


G) GO TO 16 
FOR GIMBALEO 


SUMMARY. 
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0 C 0 177 


BGSt? X=BGSWX+SWX 






0 0 U 1 7 8 
000179 
000130 


6 G S X x = 3 G 5 W X X + S W X X 
BGSWY=BGSWY+SWY 
8 G SWYY=BGSWYY+S W Y Y 






000181 
0 001.82 
OUCH 83 


RGSWZ=BGSWZ+SWZ 
BG5WZZ=3GSWZZ+SWZZ 
P G W X Z = R G W X 2 + S W X Z 






000184 
0 0 0 .1 ft 5 
0003 3b 


B G W X Y = f* G ' Y X Y + S W X * T Y 
BGV.'YZ=BG'.1YZ+SWY*TZ 
BG1 XOXSKGTIOX+TIOX 






00018? 
000188 
QUO 189 


riGTIOY=BGTIOY+TIOY 
RGTIOZ=BGTIOZ+TIOZ 
18 K=K+1 




1 

1 


cue too 
00U191 
OOLir 92 

C 

GO TO 1 
13 SWX=TW*TX 

*** CALCULATE MOMENT AND INERTIA DATA FROM IN’UTS-NO PART LEVELS 

FOR THtS 



' 


OUO .193 
000194 
00019b 

C 

*** SUB-ASSEMBLY. 
SWXX=5WX*TX 

swy=tw*ty 






000x96 

000197 

000190 


SWYYrSWY*TY 

SWZ=TW*TZ 

SWZZ=SWZ*T2 




' 


000199 

000200 

000201 


SWXZ-SWX*TZ 
SWXY=SWX*TY 
SW Y2r$WY*TZ 




■ 


01)0202 

000203 

000204 


IFHWC ,EO. AA) PW(l»M)=PW{l»M)-*-TW 
IF ( TWC .EG. AC) PV.'(2«M)=P'V(2»M)+TW 
IFCT'.vC ,EO. AE) PW(3»M)=PW(3#M)+TW 






00020b 

000206 

000207 

c 

IF (MIC .NE. 0) 

*** SUB-ASSEMBLY MOMENTS OF INERTIA ARE NOT INPUT AND MUST BE CA 
1C ALL CALC(TIOX»TIOY »TIOZ# MIC t TX1 * TYl » TZ1 » "RL > TRS* TV)) 

LCULATEd. 



1 

1 


0 U020S 
000209 
000210 

c 

c 

*** SUB-ASSY. MOMENTS OF INERTIA ARE INPUT. 
*** PRINT OF ITEMS AT THE SUB-ASSEMBLY LEVEL. 
NLINE=NLINE+1 






000211 
C 0 0212 
000213 


IF (NLIME .GT. 44) CALL HEADER (MLINE ) 

V R ITE ( 6 1 2 1 ) I AM » I A > 1 ASUB . T GC r TPRT1 » TPRT2 . TPRT3 » TPRT4 . TPRTN1 
1 ,TPRTU2.TPRTN3>TW>TX>TY»TZ»SWXX.SWYY.SWZZ‘TI0X»TI0Y.TI0Z 

MAR72*NEW 

**-l 



■ 


000214 

000215 

000215 

c 

21 F ORf ; A T ( 3 1 3 . 4X t A1 . 6X , 4A4 , 4X . 2A4 <■ A 1 » FI 0 . 1 > 3F7 . 1 » 6E3 . 2 ) 
*** ADD TOTALS FROM SUB- ASSEMBLIES TO TEMPI ( •’ SSEMBLIES) . 
ZS’tV-ZSK + T a' 

M fl R72*NEW 

**-l 





u 0 0 217 
000218 
OUl'219 


Z S W X - Z 3 V; X + S W X 

ZSWXX=ZSWXX+SWXX 

ZSWY=ZSWY+SWY 






■0u280 
C 00821 
Uuij 2 2 2 


ZShYY=ZSWYY+SWYY 
ZSUZ-ZSNZ+S ;iZ 
ZS/.'ZZ=ZSW7Z+SWZZ 






GC 0223 
00 'j 8 84 
000225 


ZTI0X-2TI0X+TI0X 

ZTIOY=ZTIOY-mOY 

ZTIOZ-TIOZ+ZTIOZ 






Cog 826 
000227 
0 0 o 8 2 8 


ZWXZ=ZWXZ*SWXZ 

ZWXY=ZWXY+SWXY 

ZWYZ=ZWYZ+SWYZ 





o 

000829 
C 00230 
000231 

c 

IF (TGC .NE. G) GO TO 22 
*** INCLUDE ITEMS FOR GIMBALED SUMMARY. 
ZGSv,‘=ZGSW+TW 






CGu252 
OUt'233 
COt 234 


ZGSwX-ZtaSWX+SV’ X 
Z G S W XX-ZGSWXX+S W X X 
ZGSV.'Y-ZGSWY+SKY 






000235 

000236 


Z 6 S W Y Y = 2 G S W Y Y + S W Y Y 
ZGSWZ=ZGS'.v2+SWZ 
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V:\Gi Y ? i Ur *' ; 50 0 


000237 
CO L 2 3 3 
0 CO 2 39 
000240 
000241 
0 0 0 1’ 4 2 
U00243 
0 0 024 •'■> 
000245 
000246 
000247 


_ 11 


ZGSWZZ=ZGSWZZ+SWZZ__ 
ZG"f I0X-ZGT IOX + TIOX 
?GTiOY=2GTIOY+TIOY 
76TI0Z=ZGTI0Z+TI0Z _ 
Z G 'll X Z - Z G 'i i X Z + s w X Z 
ZG'ftXY=ZG , YXY+SWX4-TY 
76 2 Y Z = Z G •• i YZ+ SWY4TZ 
J-J + l 
GO TO 1 

SWX=TX*TW __ 

CALCULATE MOMENT OF" 


INERTIA DATA FROM IMP JTS-NO PART OR SUB-ASSEMBLy 


3 U C Z 4 & 

C LEVELS FOR 

THIS 

ASSEMBLY. 

000249 

SteXX=SWX*TX 



000250 

s .'Y = -, W*TY 



3 J 0 > b 1 

SV/YY-SWYvTY 



O CO 2 32 

SWZ=TW*TZ 



0o02 63 

S’.vZZ=SWZ»TZ 



060254 

S'.-:XZ=SWX*TZ 



j u o 255 

S.vXY-SWX'sTY 



000756 

SV.'YZ=Slv'Y*TZ 



00c257 

IE (TV’C .50. 

A A .) 

PW(1 ;M)=PW(i;M)+TW 

u. o253 

I F < T <-/C . EO» 

AC; 

PVK2. *' ) =PV' \ 2 » M; +TV' 

000259 

TFCli/C .EG. 

AE) 

PW ( 3 > M ) -PW ( 3 » r-1 ) --TW 


j O 2 0 

0 0 0761 
~"'.'002j2' 
■■j 00263 

.\ • , • . >j 

c'oi‘265 

f-oc; -'ft 

COO, ’.j 7 

- v) c i. 2 

COOCoF 
C'CulVO 
0 o 0 i: 1 1 
00 0? 72 
C007 73 
b 1 i. ’ ' 4 
00.6/D 
DOC 7t 
i- o 0 4 7 / 

00 07 .78 
COO 7 79 
0 0 J 7 1 0 
0 j , CM 
"lij-2? 
OU.d.63 
0 007 ,04 

yoMCfa 

„ 0 0 or. .17 

_?S?c oor-Ri; 
u o o ? o y 

Q 000290 
000291 
000292 
Cf. 0295 
C. 00294 
030295 
CO 0796 


(MIC ,Nt 


0) 


i r 

C *4* ASSEMBLY moments OF INERTIA ARE MOT INPUT AND MUST BE CALCULATED. 

1C ALL C ALC ( T 10” » T 10 YVTIO? » ' IC ; TX1 » TY1 1 TZlT’RL > f RS * TV.’ ) ' ' ' 

C fk- ASSEMBLY MOMENTS OF INERTIA /RE INPUT 

C v*# PRINT OF ITEMS AT _TK' ASSEMBLY LEVEL _ 

MLINL=Mi.'lME-U ' 

IF (ML I, ME « G V » 44) CALL HEADER (Nl.INE) 

V.'R I IF ( 6 , 23 ) I AM » I A » TGC * TPRT1 , 7PRT7 « TPRT3 , TPRT4 » TPRTN1 » TPRTN2 

1 » TPRTN5 * Vi ■ f X > TY VTZ SWXX*SwfY7SlYZZ“» TIOX . T : OY ,TIOZ * 

23 FORMAT ( 21 3 » 7X i A1 » 4X > 4A4 ; ftX » 2A4 »Al»F10.i> 3F? . 1 » 6E8.2 ) 

C /DO TOTALS FROM ASSEMBLIES TO MAJ OR ASSEMBLIES _ 

" *,< (;!)‘=w( .v, )+Tw 

WX(M)=WX(M)+SWX 

V'XX ( M ) - '-iXX t M ) swxx 

V v CM ) - )i ( .’* ) + SWY ' 

WYY(f/;)=':.'YY(M)+SttYY 

V 7. 1 1-1 ) I (;/ ) -I-S'.'/Z 

~WZZ(K)'=WZZ(M)+SWZZ' ' ~ ~ 

kxz(m)=wxz<m;+swxz 

V X Y ( M ) - W X Y ( !•: ) 4 S W X Y 

' V/Z (,V, ) YZ < U K-Sl. YZ 
T I X ( M ) -T I X ( M ) +TIO X 

TIY(M)=TIY(U)+TIOY 

TIZ(M)=T:Z(MHTIOZ " 

IF (TGC .ME. G) GO TO 24 
C *** INCLUDE ITEMS FOR GIMBALED SUMMARY 
V. , S(M) = A , G(K)+tV)'' 

V: jX ( M i — 'YOX ( M ) 4 S '.v X 

V.'GXX ( v . ) =',/GXX ( ):) -fS'-.'XX 

W6Y (M)=WGY(M)+SWY 
V'GYY ( M ) =WGYY ( M ) + SWYY 

WGZ ( K ) — l/GZ ( V ) +SWZ ■ 

l'.GZZ ( ’■ ) ZZ ( M ) +SWZZ 
V/ 3XZ ( is ) - 6 X Z : V ) + s W X 7 

G X Y ( M ) — G X Y ( ) + S V! X *• T Y - _ 

' WGYZ (M ) = a'GYZ ( M ) +SHY*TZ 
TGI X (M ) =TG I X ( M ) +7I0X 


MAR72*NEW_ 
**- 1 
MAR72*NEW 



VriCiiAY ! 426218? f)f 500 
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C 0 i) 2 9 7_ 
-. 0 0 4 4 o 

0 0 0 ? 9 9 
000300_ 
0 0 0 3 0 i 
000302 
000303 
0 0 0 3 0 4 
000305 
0 0 0 3 0 6 
" 0 0 C 3 0 7 
O 0 0 3 0 £i 
000209 
000310 
000311 
0 0 !j 3 1 2 
000313 
000314 
000315 
JO 0315 
000317 
0 0 0 3 1 5 
000319 
000320 
000321 
000322 
00032 3 
uU 0224 
000.525 
fl J t! 2 2 6 
000327 
0 >10328 
009329 

0 0 033 0 
0uG33i 
000332 
COO 3 3 3 
0 u 3 3 4 
00 032 5 

■?. ... 6 
ooo:;.;? 
0 uj3j 1 
000339 

01 f, 3 AO 

coo; /a 
ouo:v,?. 

Col-343 
t* GO 044 

0 u 0 2 • 0 

0 0 J.J vO 

0i;0347 
0 JiiO'i- 8 
0 U 0 3 0 9 
U 00 3 5 0 
000331 

0 j.j jj2 

j o U o 5 3 
0 0 0 1 3 o-4 
00 U 355 
OOUoSb 


24 


2 

C *** 


(SUB-ASSEMBLY) FROM SUMMED DATA OF PARTS. 


L *** 


26 
C *■'* 


_T G 1 Y ( M ) =TG I Y ( K ) + T.I 0 Y 

TG 1 2 ( M ) =TGIZ t M ) +T IOZ 
1 = 1 + 1 

GO TO 1 . 

" B X = B S 0) X / BS W 

CALCULATE ITEMS FOR TEMP2 

BY=BSV/Y/BSW _ _ _ _______ 

bz=lj5v;z/b’sw " 

BI0XrBSWZZ+BSWYY+BTI0X'-Rsw*(pY*BY+8Z*8Z) 

R 1 0Y=8SWXX+BSWZZ +8T I OY-RSW* ( PX*8X+BZ* 3Z) 

"Vi OZ=BSW YY+BSWXX+BT I OZ-BSW* C BY*B Y+BX*RX ) 

IF (B6SW .EO. 0.) GO TO 25 

. .PGX=BGSWX/8GSW 

BGY=H3SWY/BGSW 

bgz=ugswz/bgsw 

fj G 1 0 X H G S IV Z 7 + B G S W Y Y + RG r I OX-BGS W * ( BS Y *5GY+? 3Z»BGZ) 

1+B6SW*< ("HGYhSIMY) V*2+ C RGZ-GIMZ ) **> ) ” 
BGIOY=8GSWXX+BGSWZZ+BGTi'OY-RGSW*(BGX4BGX+H 5Z*BGZ> 

1+RGSW* ( CIGX-GTMX ) * *2+ < RGZ-GIMZ >**? ). 

R S 1 0 Z = 8 G S W Y Y + B G S W X X + B G T 1 0 Z - 6 GSW*"(PGY*8GY+B 3X*BGX) 

1+BGSto* < ( BGX-GIMX ) **2 + ( BGY-GIMY ) **2 ) 

NHNF=NLINE+1 __ 

IF INLINE .GT. 44) CALL HEADER ( ML I ME ) 

PRINT OF ITEMS (TOTALS) AT THE SUR-ASSEMRL < LEVEL-COMPRISED OF SUMMfD 
WRITE ( 6 * 26 ) IAM2» IA2. 1 ASUB2. T21 » T22 » T2.3.J24 . BSW*BX . BY. BZ? 

1 k s W >: X » B s Y Y , B S W Z Z . B 1 0 X . D 1 0 Y > B 1 0 Z 
FORMAT ( 313 » 1 IX ( 4A4 ? * ** Y TOTAL ** * F12 . 3 » 3F7. 1 > 6E8 . 2) 

ADD I TEMS FR0M_JEMP2_( SUB-ASS Y.) TO TEMPI ( ASSEMBLIES) - 
ZSW-ZSW+ESU 
ZSWX=ZSWX+BSWX 

7 S W X X = Z S W X X + B S W X X 

7S.V Y=7 5wY +BSWY 
Z5V/YY=ZS’,’YY+ilSWYY 
?S'--.'Z-7SwZ+ BS'.v'Z 


PART 

MAR72*NEW 

**-1 

MAR72*NEW 

**-2 


C *** 


GO TO 27 
G I MB A LED 


t- i 

if 


ZS>YZZ=ZS W Z Z + 8 S W Z Z 
ZV-XZ=ZWXZ+BWXZ 
ZWXYsZWXY+OWXY 
7WYZ=ZWYZ+3WY2 
ZTI0x=ZTI0X+9TI0X 
ZT10Y=ZTICY>BTI0Y 
ZT 1 07= ZTIOZ+Bl 1 6z 
Ir ( SGSW . r.C • 0.) 

I nclude I tems . for 

Z G b W =ZGS»+3G5 W 

ZGSWX-ZGSV.'X ( FjGSWX 

7’ G S W X X = Z G S W X X + R G S W X X 

zgsv:y=zgswY4ggswy 

Z 6 S U Y Y - 7 3 ■ s YY + BGSWYY 
ZG'oWZ— ZGSV Z +3GSW2 
Z G S Z Z = 2 G S V! 2 Z + B 6 S W Z Z 
? G X 2 = Z 6 X Z + 8 G W X Z 
ZGI/XY^ZG'a'XY+RGWXY 
Z G W Y Z = Z G Y 2 +B G ■*.' Y 7 
ZGTIOX=ZGTIOX+PGTIOX 

?GTlOY=ZGT:OY J -nGTIOY 

Zb f I OZr-ZGT I GZ+BGT I OZ 
PS. 1=0 . 

ZERO OUT DATA .FOR. TEMP 2 
BSWXX=0. 


SUMMARY. 


(SUB-ASSEMBLY) , 



VRI'NaY t 42H218/ 5> 300 
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34 


13 0 0 367 
j 'J 038b 

000389 
000360 
000361 
000362 
000363 
0 0 C 364 
OO'Lu.bb 
f> 0 >j o -j 6 
000367 
0 00363 
000369 
0 0 0 3 7 0 


H5iVY = 0. _ 
BSWYY-0 » 
B b Y< Z-fl » 
BS,V2Z=0. 
BVlXZrO. 
BWXY=Q. 
BVlVZrO . 


BTI0Y=0. 

BT10Z-0 • __ 

IF (aGSW .EQ. 6'.) GO' TO 28' 
BGSiv-0 . 

BGSrfX-0 o 

EGG W X X — 0 . 


000371 

000372 

000373 

000-374 

000375 

000376" 

000377 

000373 

O', j 37s ' 

uOOibO 

0 0 0 o 3 1 

07 0332 ' 

o 0 0 vjG 3 


F)GSWY = 0. 
_FGSWYY=0. 

E)&SWZ=07 " 

p.GSWZZ=0. 
BGWX?=0 . 
'RGWXY=o; 
RGWYZ=0. 
flGTXOX-O . 
P.6TIOY = 0. 
DGTIOZ=0. 
Fa !JK = 0 
■ K = 1 ' 


000 304 
000335 
0 0 0 5 <i 6 
0O0367 
UO 03 33 
000389 
GO 0 7 90 
SJ 0 7.91 
CO 0292 
f, 0 0393 
0 0 03V ! 
C G 0 ;> V 3 
C 396 
001397 
')■) 0 3 9 o 
000399 
On 04 GO 
VJ Of, 01 
u ! 4 0 
GO'. ‘103 


K 

W 


Ql'04 04 

ooc- c:> 

(J f :■ o U 

c o m 07 

3 0 o 4 0 S 
VL Ji; 09 

com 10 

COOMl 


, 1 


lc 


06 04 13 
0 0 041 4 
OOO 1 ' 16 


0 0 0 4 1 C> 


GO TO 20 

4 ZX=ZSWX/?SVr 

C *** CALCULATE ITEMS FOR TEMPI (ASSEMBLY) FROM SUMMED DATA OF SUB-ASSEMR|_IES. 

7Y=Z5WY/Z5W 

ZZ--ZSWZ/ZSV/ ’ ' 

ZI0X~ZSwZ7 + ZSl.'YY-:-ZTI0X-ZSW*(ZY*ZY+ZZ*ZZ) 
ZI0Y=ZS.-)XX:-ZSWZZ+ZT10Y-ZSW*(ZX*ZX+ZZ*Z7) 

ZIOZ = ZSWY Y-i-ZSWXX+Z f IOZ-ZSV. 1 * ( ZY*ZY+ZX*ZX ) " ' 

IF (ZOSU .EC. 0.) GO TO 31 
C *v* INCLUDE ITEMS FOR G IMPALED SUMMAPY. 

*' ?.6X=ZG5v/X/ZGSW' 

Z 6 Y - 7 0 S . Y / 2 C S 

ZGZ=ZGS..'Z/ZGSW 

ZGIOX-ZGSWZZ-f-ZGSV/Y Y vZGTI OX-ZGSW* ( ?GY*Z"gy+ZGZ*ZGZ ) 

l+ZGS'.Y* ( (ZGY-GIMY)**2+(ZGZ-GIMZ)**?) 

?GX0Y-ZGS l A'XX-{-ZGSriZZ-M?GTI0Y"ZGS 1 V*(ZGX *7G X4ZGZ*ZGZ) 

“"I •i-ZGS'.V* ( ( ZGX—G I MX. ) *■ ( ZG7-G I MZ) **?) ’ 

/ GIOL-ZOSL'Y Y+ZGSWXX+ZGTI 07-ZGS-'/* ( ?GY*ZGY+ZGX*ZGX ) 

lv20S'.i'f( ( ZGX-GIMX ) #*2* ( ZSY-GIMY) 

31 fiLINE=NLIME+l ' ' ' 

IF INLINE ,ei. 44) CALL HEADER ' MLTNE ) 

C *»* PRINT OF ITEMS (TOTALS)_AT_ THE ASSEMBLY LEVEL-COMPRISED OF SUB-ASSY TOTAL 


VI R I TE ( o i 32 ) I AMI f I Ai . T3 1 r T1 2 » f 13 3" T14 » ZSliYZ X3 ZY » ZZ . ZSWXX > Z'SWYY. MAR72*NFW 

1 ; ZSUZZ * Z10X , ZIOY » ZIOZ **-l 

32 FORMAT (21 3 » 12X f 4A4 » 2X.* ’#** TOTAL F 12 . 1 / 3F7 . 1 > 6E0 . 2 ) _ MAR72*NEW 

C *** ADD ITEMS FROM TEMPI ( ASSEMBLY > TO MAJOR' ASSEMBLY. ' “ ' **-2 


v: ( m ) =w ( m ) +zsw 
l-. X ( M ) £ M ) +ZSWX 

l 'XX ( ) =;.< X X ( « j + 2 S WX X 
V’Y CM, ) n.-'Y < V. > +ZSWY 
V Y Y ( ! ~ Y Y ( M } +ZSWYY 
WZ < M ) - riZ ( M ) +ZSWZ 
WZZ ( M ) =WZZ i M ) +ZSW2Z 


i 



15 



DATE 16 MAY 72 PAGE 


JO 

R- 

£0 


!.' 0 0417 

V.'XZ(M>=WXZ(M)+ZWXZ 


0 0 o 4 i 6 
000419 
000420 

V)'XY(M>=WXY(M)+ZwX.Y 
WYZ(m)=WYZ(M)+ZWYZ 
TIX(M)= T I X ( M ) +ZTIOX 


0UU42I 

000422 

000423 

T"1Y(M)= 1 1 Y (M)+ZTIOY 
T1Z(M)= T I Z ( M ) +ZTIOZ 
IF (ZGSW .EQ. 0.) 60 TO 33 


•'0 0424 
000423 
000426 

WG<fl)=WG(M>+Z6SW 
V.'GX ( M > -V.'GX ( M ) + ZGS'.vX 
l- GXX ( M ) =WGXX ( M ) +ZGS WXX 


00U427 

000423 

000429 

WGY ( M ) =WGY ( M. ) +2GSWY ■ 

WGYY ( M ) =WG YY ( M ) +ZGSWYY 
V’GZ ( M > -V.'GZ ( M ! +ZGSWZ 


000 '■! 3 0 
000 431 
000432 

iv'GZZ ( M ! -V/6ZZ ( M > ■» ZGSW 22 
WGXZ < M i -V.'GXZ ( K ) +ZGV.XZ 
WCXY ( M ) =WGXY ( M ) +ZGWX.Y 


•J 0 0 "t yj 

coo 

C 0 ' j •*! 5 l) 

WGYZ ( M ) =W6 YZ ( M ) +ZGWYZ 
TGI X ( 7! ) -TGI X ( M ? +ZGTIOX 
TGIY (f1)=TGIY (M)+ZGTIOY 


0004 J5 
000437 
0 0 4.436 

T S X Z ( M ) = T G I Z ( M ) + Z G T 1 0 Z 
33 ZSW-O. 

ZS.«'X = 0. 


0004^9 
OC 04*’ 0 
6 0 u 4 4 i 

ZSWXX-0 4 

ZS‘/‘Y=0. 

ZS.vYY-0, 


0 0 i4 42 
0 .1)443 
00 J 044 

ZSWZ=0. 

zs;;zz=o.. 

Z.VXZ-0 . 


Of' 044 5 
0 0 'J 4 4 6 
040447 

ZWXYrO. 

ZWYZ=0. 

zt:ox=o. 


0 00 -UVB 
U J u v 4 9 
('004 50 

? T 10Y=0 . 

ZTIOZ=0. 

IF (ZGSW .EQ. 0.) GO To 34 


(’0045.1 

000452 

ZGSW=0. 

?GSWX=0. 


000453 

2G6-\ XX=0 s 


f: 00 454 
000 : 53 
0 0 >j 4 1: 6 

Z65V.Y-0. 
ZGSWYYsO. 
ZGSW2-0 • 


000457 

000453 

000459 

ZGSWZZ-0 . 
ZGWXZ-0 » 
ZG.'XY = n, 


01,04.60 
0 GO 4 61 
0 "J-K 2 

ZGWY Z-6 . 

ZGTIOX-O. 

ZGrioY=o. 


j'JV'i 6 3 
000464 
o 0 o 4 6 5 

ZGTIOZ=0. 
34 ,v.J=0 

j-’. 


u 0 L) 4 o 6 
0 0 0467 

1 = 14-1 

IF (JAM .ME. 6B ) GO TO 30 


0 O0 *63 

C **■* CALCULATE ITEMS FOR MAJOR ASSEMBLY TOTALS FROM ASSY. SUMMATIONS. 


000469 

000470 

000471 

68 X(m.:i=';;X{M)/v:(M) 
Y ( M ) -UY ( M ) / v: ( M ) 
7(M)=WZ(M)/W(M) 


000472 
000473 
0 1/0 4 74 

XI 0 ( M ) = i, . i ZZ ( M ) +WYY C M ) + TI X ( M> -W ( M) * ( Y ( M) *V ( M) +Z (M) *Z (M) ) 
Y 1 0 ( M > = WXX < M ) + WZZ ( M ) + T I Y ( K ) -W ( M / * ( X ( M ) *)( ( M ) +Z ( M ) *Z ( M ) ) 
Zi 0 < M ) =WY Y ( v > +WXX ( M ) + TI 7 < M ) -W ( M ) * ( Y ( M ) (M ) +X ( M ) *X ( M ) ) 


f 00475 
000476 

IF (WG(M) .EO, 0.) GO TO 35 
C *6* INCLUDE ITEMS FOR 6 IMPALED SUMMARY. 
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_XG_( M ) =WGX.( M ) /WGC_M ) 

YGCMS=WGY(i-1)/WG(M) 

2 Gir%>~ W G 2 ( M ) / W 3 ( M ) 
X_GIO(M)=WGZZCM)+WGYY CM) 
L + ■ i G < M ) * ! ( Y G CM ) - G I M Y ) 

YGIOCM) =WGXX C M ) +V.'GZZ C« ) 
L _ _+WG(M) * C.C XG CM) —GIMX ) 
ZGIOC M ! =WGYY ( M ) +WGXX C M ) 
L +WG ( M) •* C ( XG (M) -GIMX ) 

JiLINErNLINE+l 

IF CNLINE .GT. 44) CALL 
PRINT OF ITEMS (TOTALS) 
1-;R I TE ( 6 .36 ) IMA CM ) > PRT 1J 
1 h CM), X CM ) # Y CM) *2 CM) » W XX 
FORMAT (113? 13X » 4A4 1 4X • * 
NI = 0 

"return 

END 


+ TGIXCM)-WGCM)*CY3iM) *YG CML+ZGC M)*Z 6 (J 
**2-KZG'CM)-GIm'2 )**2)~ 

+ TGI Y CM ) — WG CM) * C X 5 ( M) *XG ( M) +ZG (M) *ZG ( ) 

**?+CZGiM)-GIMZ)**?) 

+ TGIZ ( M ) -V'G ( M ) * C Y ’ ( M ) * Y G C M ") + XG ( M) *XG C) 
**2+(YGiM)-GIMY)**.>) 

HEADER ( NLINE) 

AT THE MAJOR-ASSEMBLY LEVEL-COMPRISED 

M_) , PRT 2( M) , PR T 3 CM). 'PRT4 CM). , 

:(M) ,WYYCM) » WZ 2 ( M ) , <10 CM) , YIO CM) » ZIO CM) 
*** TOTAL *',Fl2sl >3F7« 1 »6E8«2) 


OF ASsY. 


.+ 


17 


DATE 16 '‘AY 7? PAGE 

?J ELT~ DaTaTi 7? 20 224 V 702T3 


0 0 0 0 0 1 




01 

2021 


086020002000 



000002 

1 

0 

0 

0 

CASE 

1193246-9 




000003 

i 

1 

0 

0 

FWD CASE 

1193245-1 

55000 3502C00200052 


900 

0 'j 0 0 0 4 

1 

2 

0 

0 

Fl-’ll CYLINDER 


300000 25702000200062 

2740 

900 

000005 

1 

3 

0 

0 

POD JOINT 


100000 3)002000200063 

120 

<420890 

GOO 006 

1 

t;. 

0 

0 

CENTER SECTION 


500000 52002000200062 

2680 

900 

UC0007 

1 

?i 

0 

0 

AFT JOINT 


100000 6)002000200063 

120 

920890 

OOGOOfl 

1 

6 

0 

0 

AFT CYLINDER 


350000 SO 3 02000200062 

2740 

900 

'100009 

1 

7 

0 

0 

AFT DOME 

1193276-7 

63000 9^502000200052 


900 

e jo oh; 

i 

6 

0 

3 

AFT SKIRT 

1193427-9 

750001 04302000200G62 

126 

900 

0 (J o X 1 

Bp 









000012 

2 

0 

0 

0 

IGNITER 





OGOij 13 

2 

1 

0 

0 

IGN ADAPTOR 

1195729-3 

4300 3152000200061 

90 

150 

0 0 u 0 1 4 

2 

2 

Q 

0 

GRAIN HSG 


350 4002000200061 

200 

60 

000015 

SB 









OG.,016 

3 

0 

0 

0 

NOZZLE 

1196372-1 




OCOC 17 

3 

1 

J 

u 

0 

G ENT CAP 


9300 98O02000200063 

120 

280240 

CO 0 0 3 L8 

3 

£ 

0 

0 

NOZZLE SUPPORT 


100000102002000200022 

400 

400280 

000019 

3 

3 

0 

0 

G EXIT CONE 


1500 001 18602000200022 

2300 

700260 , 

0 0 0 0 2 c 

88 









000021 

20 

0 

0 

0 

PROPELLANT 




1 

000022 

20 

1 

0 

0 

CYL GRAIN 

1 

1292437 52002000200063 

9990 

8°0120 

cove?;. 

20 

'> 

0 

0 

IGNITER GRAIN 


750 <-502000200061 

240 

60 ! 

0UU024 

88 








; 

000025 
(J 00 026 

23 

86 

0 

0 

0 

GUIDANCE SYSTEM 

Gr E 

9300106001970212063 

250 

750700 

00 CO 2 7 

40 

0 

0 

c 

GF£ DESTRUCT FL 


7501 0 5501 95 0207363 

100 

760750 


GO 00 2. 3 8S 

000029 99 
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fd 

EL f HEADER > 1 1 720220 > 62B6 

1 

GUOU 01 
000002 
000003 

SUBROUTINE HEADER (NLINE) 

C *<* THIS SUBROUTINE PRINTS THE HEAOER FOR THE DETAILED WEIGHT STATEMENT. 
WRITE (6* i) 

, 

000004 
0 c O' 0 0 5 
r-U )0C6 

1 FOR NAT ( 1H1 » / / /// ) 

'. RITE ( 6 r 2 ) 

2 FORMAT ! 31 X, 4 DETAILED WEIGHT STATEMENT '»//.' MA A SUB P'r 

1 

000007 
OOOOC 6 
000009 

1 13X » * PART NAME’ »19X» 'PART NO. WEIGHT CENTER OF GRAVITY ’ f 4X> 

2 ’MOMENT* » 12X / ’OF’ > 15X. • INERTIA * » / » 54X* ’ LB ' > 1 IX » * INCHES’ » 20X , 

3 * LB~ INCHES SQUARED * » / : 65X » * X Y Z'.9X.*WXX WYY’#7Xr 

j 

000010 

OOuOU 

0 o o i; 1 2 

4*V/ZZ 10 10 I0«*/»114X. *X Y Z'*/ 5 

NLINE-1 
RETURN 

1 

000015 

END 





Vk'.-NmY i 4232 10* n .500 
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a F.l-T MAIN. 1 ? 720306* 35199 


0C0C01 
000002 
_ 000003 

0 00 004 

J u 0 005 
•jOC-CUi 
000007 
00CC08 
0U0CG9 

t ) C. '.0 to 

UCOOil 
OOO 3 i 2 
0 0 0 1 3 
000014 
0 U u 0 1 o. 
.,0 1 - 
,:0l,017 
0000 16 
000019 
000020 
. __ oe ;: 0 2.1 

vi) 00 22 

41:0023 
OvvOZA 
000025 
0 0 u 0 '?. 3 
000027 
000028 
000079 
0 L 0 030 
000031 
000032 
000033 
000034 
OOOC.3S 

CO 0 0 30 

oOoG.V/ 
CO GO 38 
OUO 039 
*' 0 0 040 

j '•> L t 1 

u 00042 
000043 
000044 

U0U045 
0 CO 046 
0 3 CO-47 
C 1 '- 0 00043 

0 J 0 049 
•J 000050 
no 0 051 
C 00032 
o 00053 
f. 00 054 
) 00655 
0CCC56 


C »** THIS PROGRAM (SQ003A) REPLACES IBM 7094 PROGRAMS 942*' 942A% AMO *'126*01. 

C *** THIS PROGRAM CALCULATES TOTAL WEIGHT * CENTER OF GRAVITY * AND MOMENTS 

C_*** _ Or INERTIA OF A LIQUID ROCKET ENGINE. INPUTS INCLUDE PART WEIGHT'S* 

C *** CENTER OF GRAVITY * AND PART DIMENSION (OR MOMENT OF INERTIA).' 

COMMON DX *DY * DZ * G »6IMX * GT MY * GIMZ* I A > I AF_G* T AM* I ASUB* IP* TPFL1 > 

1 1 Pr 1.2 1 IPSE * MIC > NI . NLTNE > TGC * TIOX * TI OY * TI 07 * TMC * JPSC . TPRT 1 *YPRT2_* 

2TPRT3 * TPRT4 * TPRT5 » TPRTN1 » THRTN2* TPRTM3 * T7L * TRS * TW * TWC * TX * TXi * " 

3TY * T Y 1 » TZ * T21 * WTHE * M * 

4MPF<10> * IMA (40) (PSC (40) *l/C (40) *GC (40) *CM(40) *PRT1 (40) *PRT2(40) * 

SPRT3 ( 40 ) * PRT4 ( 40 ) * PRT5 ( 40 ) » WX ( 40 ) . WGX < 40 ) * WXX ( 40 ) * WGXX ( 40 ) * WY ( 40 ) * 

6WYY ( 40 ) > UGY ( 40 ) *WGYY(40) *WZ(40) *WGZ(40) *,*.’ZZ(40) ,WG?Z(40) »W(40) > 

7V'G (40) * XIO ( 40 ) * XGIO ( 40 ) .YTO(40> *YPIO(40) *710(40) .ZGIO(40) *X(40) * 

8X6* ( 4 0 )" * Y '( 40 ) s YG (40 ) * ?j AO )"* ZG(*4*0 ) * WXZ (40 ) * Y/GXZ (40) »TIX (40) eTGIX { 40 ) 

9.-TI Y ( 40 5 » TGI Y ( 40 ) *TIZ( 40) * TGIZ ( 40 ) *PW ( .3* +0 ) * TPV ( 3-- 9 ) * 

A W X :M ( 9 ) *WGXM(9) * WXXM ( 9) * WBXXM ( 9) »\jYM(9) *W3YM_(9) * K Y Y M { 9 ) »WGYYM(9) *_ 

'bWZM(sj *WGZM(9) fWZZi'UQ) * W3ZZM ( 9 ) » UM ! 9) »XI0M<9) *XGI0M(9S * 

LYIOMCS) * YGI OM < 9 ) . Z10M ( 9) * ZGICM ( 9) * XM ( 9) , XGM(9) * YM(9) » YGM ( 9 ) * ZM(9) * 

_ __ PZGM(S) ? UXZM < 9) *WGXZM(?) * TI XM ( 9A*.I0IXH (9) >JJ YM (9).* TGI YM.( 9) * TIZM(9)_*_ 

ETGIZM t 9 ) *WXY (40) *WYZ(4Q) *W6XY(40) *WGYZ(40*) *WXYM(9) *WYZK(9) * 
FAA*A8*AC*AD*AE*AF*AH*AI,AJ*AK.AL*AM.AN*AO*AP*AO*AR*AS»AT*AU*AV* 

6 AW.* AX * AY » AZ • WGXYM ( 9 ) *V.~GYZ M (9) »WTMTL( 2 6) _ 

4 DO 3 iK=i * 10 

0 I'.’PF ( M ) -0 

R£AQ(5*_1* END=8> __ _ _ 

A NPF * IPSF , OX , OY * DZ . GlMX *G I MY » GIMZ * WTHE » IPFL1 * IPFL2 * IAFLG* 

1 FORMAT(7X*10I2»II*2F5.3* F4.1* F5. 1 * 3F4. 1 * 31 1) MAR72*NEW 

DO_ 2 M=l*40 **-l 

IMA (;.;) “0 " 

W(M)rO. 

V.'G ( M ) - 0 « 

WX(M)=0." 

W5X(W)=0. 

WXX(M)=0. 

WGXX(M)=0. " ' 

l-:Y(M)-0, 

'-'GY ( M ) -0 • 

"V;YY (M) -~0. 

WGYY ( M) =0 . 

WZ(M)=0. 

W'GZ ( M ) -0 o 
WZZ ( M ) =0 . 

WGZZ ( M ) =0 • 

,-/X2(M)-0.” ' 

WGXZ ( M ) =0 . 

y(M)-o, ■_ _____ 

”XG(M)=0. ‘ '* 

Y(M)=0. 

Y6(M)=0. 

Z(M)=0. 

ZG(y.)=o. 

. XI 0,( M ) — o . 

xgio(m;=o. 

YI0(.M)=0. 

YGIO(M)=0. __ 

Z 1 0 ( M ! - 0 j 

ZGIO ( M ! — 0 . 




CCO 0! 

:j7 

0 0 L 0 ! 

68 

coco 

59 

oooc 

60 

0000 

61 

0 0 U 0 

62 

00 00 

63 

0 000 

6 

0 G 0 0 

66 

11 4 00 

6 6 

0000 

67 

00 00 

68 

0000 

69 

0000 

70 

0000 

71 

0 j ij 0 

•*2 


_ TIX(M)~0« 

tsix(m;=o. 
t i y ( m ; - o . 

TGIY(M)=0_. _________________ 

T I Z[ M ) -0 • 

2 T5IZ(M)=0, 

CALL ASPC ID _____ 

C ALLHEAPER ( NLINE ) 

CALL MA5IN 

CALL MISSUM 

CALL 'PRINT* " "" * ' 

GO TO 4 

8 V.’R i TE !6 ? 9 ) 

9 FOKMATtlHl #/////» 50X END* OF JOB - NO MORE CARDS*) 

STOP 
E ND 
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ELT 'maSXU* 1 » 720224 f”31 402 


000001 
G 0 0 0 0 2 
GOOD 03 
0 0 0 0 0 u 
CO 000 5 
u j 0 'j 6 
:uUGu7 
0 J G 0 0 ti 
000009 
0 C 0 0 1 0 
OlK'Oll 
000012 
0 O' 0 0 1 3 
000014 


0 C 0 0 1 5 
0 0 0 o 1 6 
Ob 0 0 17 
■j n i a 
’ 000019 
0 00 020 
J 0 0 0 2 1 
0 0 0 0 22 
00 GO 23 
rui.rr-'j: 
u GO 023 
000026 
CO u 027 

‘.*•0028 

‘ 

Uf.i 0 
0 0 0 . - j 1 
r.ocrn? 
0 0 0 < : 3 3 
2 •'•0 0.04 
0 GO 035 
'or, V'6 
.037 
;0 3fi 

' rj o 09 

Hi.J 4 0 
on jt'4i 

'..v* ./ ' 1 • r_ 

C ..IG '3 


H 1 

CD 


oGC'O-. 4 
.-0 0045 
0 0 GO 46 
0 CO 0 47 
000046 
J 0 0 0 4 9 
(’0 0050 

o :> c o 5 1 

0 G o 0 62 
C 0 0 C 5 3 
0 u G J 4)4 
0 9 U 0 b 5 
000056 


SUBROUTINE MAS IN 

C *** THIS SUB PROCESSES THE FIRST CART IN EACH MAJOR ASSEMBLY 

COMMON DX » DY » DZ » G » GIMX * GIMY » GIMZ * I A pJTAFLG p I AM » I ASUB » IP » IPFL1 * 

1 1 PFL2 * I PSF * M I C (N I r NL INEpTGC , T I OX * T JOY p T I C l '» TMC pTPSC » TPRT 1 * TPRT2 7 
2TPRT3 p Ti J RT4 p TPRT5 p TPRTN1 p TPRTN2 » TPRTN3 » TR . » TRS » TWp TWC p TX p TX1 p 

_3tYpIy1pT_ZpTZ1pwthep;;p _ __ 

" 4-UPF ( 1, 0 ) p II.A ( 40 ) t PSC ( 40 ) p WC (40 ) p G C ( 40 j p CM ( 1 0 ) p PRT 1 ( 40 ) »PRT2 ( 40 > » 

5PRT3 ( 40 ) p PRT4 ( 40 ) #PRT5(40 ) pWX(40) pWGX<40) pWXX(40) pWGXX(40) pWY(40)» 

6i'.'YY ( 41 ) ) pWGYUO) ,WGYY(40) * VIZ (40) rWG2(40) »W?Z<40) pWG2Z(40) »W(40) » 

7v G ( 40 ) p XIO C 40 ) p XGIO ( 4 0 ) p YI 0 ( 40 ) • YGIO ( 40 ) p 310(40 ) p ZGIO ( 40 ) p X ( 40 ) p 
8XG(40) p Y ( 4 0 ) p YG ( 40 ) »Z<40) p?G(40> ( WXZ(40) p'v'GXZ(40) pTIX(40) pTGIX(40) 

9/TIY !40> ? TGIY(40) »TIZ(40) »TGT7.(40) pPW(3» 40) t TPW(3p9) p 

Ac \M <9 ) p WGXM ( 9) » ttXXM ( 9 ) > WGX’XM ( 9)Vi;YM (9) »wG (M ( 9)" » WYYM (9) pWGYYm'9)7 

bWZM ( 9 ) p WGZM ( 9) »WZZM(9> »WGZZM(9) »WM(9) »WGM!9) pXI0M(9 ) pXGIOM(9) p 

C Y IO;M ( 9 ) p Y6I OM (9) pZIOM(9) pZGI0M(_9) ._XM ( 9 )_^XGM ( 9).» YM ( 9)_p YGM (9 > pZM_(9)_p 

D;G-U9> * WXZM (9) pWGXZM(9) »TIXM(9‘) * T6IXM (9) , T I YM ( 9 )” , TGI YM ( 9 ) »TIZM(9) > 

ETGIZ;-;(9) pWXY(4P) »WYZ(40) p V'GXY ( 40 ) pWGYZ(40 I p WXYM ( 9 > »WYZM(9) p 

r A A p 4 J ? AC ? AD p •• E ? AF p AH p A I p A J ? AK p AL p A M p A.A1 p A 0 •• AP_p AO pARpASpAT_pAU p A V p ____________ 

GA W * A xVay'p AZ Vv/GX Ym‘( 9 ) P UGYZM C 9 ) * WTMTU 26 > 

[..-..'A G /'S’/ 

DATA A A/ ' A « / . AB/ » B « / p AC/ « C » / p AO/ » p > / » Ar / » r V , AF/ « F » / p AH/ * H 1 / 

pa'ta* a: / * f»V p aj/» J */» a?:/* k * 7 »'al/»L ' / f *7 Van/ » n • 7, a 6/ • o • 7 ' 

OAT A AP/ >P'/p AQ/'0' , /p AR/'R’/p AS/’S'/p AT/ , '' , /pAIJ/'U'/p AV/'V’/ 

fi.c; A AW/ ' 11 < / P AX/ » X » / P AY/ » Y » / p AZ/ « Z ' / _ 

j - ; I — o 

DC 20 1 = 1 p 26 

20 I'TiiTL tl)=0. 

1 4 = 0 

DO 2CC u-1 p 10 

200 IF (|mPF(L)_ l Mc._ 0) LL=LL + 1 _ _ 

'4 READ ( 5 p 5 ) 

1 IAVpIApIASUBpIPp TWC pTgCp TMC pTPRTIp TPRT? rTPRT3» 

1TPRT4 p pTPRTNI p TPRTN2pTPRTN3p TWpTX pTYp~)ZpMIC?TX1pTY1 pTZI pJTRL, MAR72 

3 T R S » T 1 6 X p f 1 6 Y p T I OZ 

5 FORMAT ( 41 2 » 3A 1 > 4A4 > 2A4 p A1 pFH . 1 1 F5 . 1 1 2F4. 1pI2p3Xp2F4.1pF3»1p MAR72 

1F4.1 pF?,1pT60p3F7»0)_ 

* 1PRT5=6H " MAR72 

f. =■ I AM 

IF ( I AM_» EQ o S8 ) GO TO 4 

IF (I AM .[£0. 99; RETURN 

IF ( I AM ,GT. 0 .AMD. I AM .LT. 41) GO TO 2 

V A I T E (dp 3) JAM • 

3 FORMAT ERROR ON INPUT CAROp MAJ. ASSY • C0DE=’pi2) 

2 IF (LL .EO. 0) GO TO 203 

IF (M ,EO._l> GO TO 203 7 

DO 202 L=1pLL 

202 IF ( iii’F (L ) .EG. M) CALL HEADER (NLINE) 

203 CONTINUE __ 

CALL MATL 

lvX(H)=0. 

hXX(M)=0. > 

f Y(M)=0, 

1-:YYC1)=0. 

__ wZ(y.)=o, 

" WZZ ( M ) =0 . 

WXZ(M)=0. 



VKCNAY > 426216 t 5 t 300 
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22 


tT'* 

Jg 

O 


000057 


IvXY < M ) =0 . 




0 0 u 0 5 3 


fcY2(M)=0. 




G00C59 


TlX(fi)=0. 



! 

OOCOhO 


TIY (m>=0. 




0 U 0 0 6 1 


T 1 2 ( M ) = 0 . 




000062 


WG(M)=0. 




000063 


WGX(M)=0. 




0000 64 


WGXX(M)=0. 



i 

000065 


WGY(M)=0. 



! 

000066 


WGYY(M)=0. 




000057 


WGZ(M>=0. 




000060 


WG22 (M) =0. 



i 

000069 


WGX2(M>=0. 




0 0 0 U 70 


WSXY(M>=0. 




000071 


t,'GY2(M)=0. 




000072 


TGI X (M) =Q . 




000073 


TG1Y<M)=0. 




C 00074 


TGIZ(M)=0. 




C 0 3076 


PW ( 1 f M ) -0 o 




i o j o y 6 


PW(2>M)=0. 




.,0 0077 


PWOfMlrO. 




00 00 76 


IMA if.;) -I AM 




000079 


PSC(M)=TPSC 




OOuOBO 


WC (M)=TWC 




0 O' 0 0 1 


GC (M)=TGC 




0 u o >;• 2 


CM ( Ni ) "VN'C 




0 ■■ 00 ■. 3 


PRT1 (fO-TPRTl 




0t)ij0u4 


PRT2 (M)=TPRT2 




b w 0 j 3 L) 


PRV3(M)=TPRT3 




000 Oi>6 


?RT4(M)=TPRT4 



* 

0 U 0087 


PHT5(M)=TPRT5 



1 

u o i J 0 6 6 


I-; 7 i-. J ='.W 




!’ 0.0 OF 9 


Y t M)=TX 




00090 


y ;>i)=rr 




000091 


2 i M ) rTZ 




00 U 092 


IF (MIC .ME. 0) GO TO 6 




0000 r '3 

C 

**•* INERTIA DATA INPUT 




000094 


XlO(M>=TIOX 



i 

•.100095 


YIO(M) -TIOY 



i 

•j 0 *j 0 V a 


?I0(;/)=TI02 



, 

no:, 097 


"6 IF (MIC .ME. 0 .OR. TIOX .ME. 0.) GO TO 6 




000095 

c 

***■ MAJOR ASSY. COMPRISED OF COMPONENTS 




0 0.1099 


MLlMF=l'JLTNE+2 




(i 00 100 


IF (INLINE .GT. 41) CALL HEADER ( NL INE ) 



i 

UUolOJL 


WR I TE ( 6 , 9) I AM . TPRTi „ TPRT2 » TPRT3 < TPRT4 » TF RTN1 » TPRTN2 . TPRTN3 

MAR72+NEW 



000102 


9 FORMAT ( /,- 13 . 13X t 4A4 ^ fiX , 2A4 > A1 ) 

MAR72*NEW 



0 0 0103 


>1 = 1 

**-2 



0 1.‘ 0 1 0 4 


CALL CRD IN 




on: 105 


GO TO 4 




v :.. j.i.06 


ft '‘fJ X ( i* . } ~ 1 iV i X 




t 00107 

c 

*+* MAJOR ASSY. HAS NO COMPONENTS » CALCULATE ITEMS 




-j oi os 


•vXX (fO =WX (M) *TX 




000109 


W Y ( M > = T W * T Y 




COO 110 


WYY(M)=WY(M)*TY 




On 0 111 


/Z ( M i =Tri*TZ 




•J 0 1 j 1 i 2 


iil)=J 2 (M)*TZ 



. 

one? 13 


V:XZ ( M '/ =TW*TX < TZ 



i 

00 01.14 


‘■;XY(M)=TW*TX*TY 



, 

0 l) 0 i 1 b 


WY2(M)=TW*TY*T2 



1 

000116 


IF ( TivC , EO . AA) PW(1»M)=TW 



i 
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UOullB 
0001X9 
IIAJUO 

ouoiai 
000122 
00 01 2 J 
0UU24 
000 1 2 5 
u o o 1 2 6 
000.1.27 

oco’aa 

!)[; u 129 
JO'JITO 
000131 
0 00.132 
000133 

0 0 0 1 .34 

0001 .35 
0 CO 136 
00 u 137 

i’UUilnl 

000139 
000140 
OOOJ 4.1. 
CO o .. :2 

C, Oil 1.4 3 
Oi/.. :44 
DOC 3.45 
020146 
000147 
00 

0 JO 14 9 
00 0 j. 50 
0 u 0 l 3 i 
U001 52 
0 0 U 1 3 3 


I F ( T'.v'C . . EG . . AC ) . PW < 2 > M ) rjw 

XF!TUC . FG » AE ) PW13»H)=TW 
IF (TGC .ME. G) GO TO 10 

!«'6(M )=YHM) 

v.'GX C M ) — i.\' X ( M ) ’ ' ~ “ ' 

WGXX(M)=WXX(M) 

W6Y (m>='-/Y (M) 

IvfaYY (M)=flYY (M) 

l G2 { M 1 —WZ < M) 

W&ZZ(fc>=W?Z<M) _ 

Vi&XZ(M)=tfXZ(M) 
l-.GXY (M)=WXY(M) 

WGY2(M5-WYZ_(M) . . 

X (•> ( M ) — X ( M ) 

YG(M)=Y(M) 

7.G(M)=Z(M) 

10 IF (MIC . EO. 0) 60 TO 41 
c *** moments of inertia not input data 

. CALL CALC ( X.I0JM).*_YI0 (M) » 710 (M ).» MIC?. _TX1» T Y 3 » T2 1 > TRL » TRS » W ( M ) ) 

4i hx(m')=xio(m)' 

T1Y(M)=YI0(M> 

T 1 2 ( M ) = 2 1 0 ( M ) _ _ _ 

IF (TGC .NE. G) GO TO 11 
TGIX£M)=XI0(M) 

TGIY(M)=YIO(M) _ _____ 

" TGI2(M!=7IOUO " ' 

X G 1 0 ( H ! r. x 1 0 ! M > + W G ( r A ) * < ( T Y - G I f ' Y ) * * 2 + ( T 7 - 6 T Kf 2 ! * * 2 > 

YG i 0 ( M ) = Y 10 ( !-i ) +WG <M)*< ( TX-G JVX) *4?+_< T7-G T«Z ) **2 ) 

26 10 (M ) =710 <M) +WG (M) * < ( TX-GIMX) **? + ( TY-RXMY ) **2> 

11 NLINE=NLINE+2 

IF (NL.INE .GT. 41) CALL HEADER INLINE) 

Wrt l TE i 6 r 12 > I AM , GC ( M ) » TPRT 1 > TPRT 2 r TPRT3 , TPRT 4 » TPRTN 1 o TPRTN2 
1.TPRT::3 »W(i 4) f X(M) . Y I m ) ,?A M) » WXX ( K ) fWYY(M) ,V.22(M> ,XI0(M3 .YIO(M) t 
2 2 1 0 ( M i 

12 F OiIMAT ( / 1 13 "» 10X * A 1 » 2X * 4A4» 8X » 2A4 VAlVFl 0 .1 r 3F7« 1 » 6E8«2 ) 

GO TO 4 

ELD 



MAR72*NEW 

*4-1 

MAR72+NEW " 

*4-2 
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a EL 
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030001 
0 J 0 0 0 2 
000003 
0’o0UC4 
000005 

oonooc. 

u 3 ooo i 
0 0 0 0 0 3 
00 01)09 
COvOiO 
0 . ,001.1 
00-0012 
000013 
000014 
.000015 

'■ „ Oil 16 
C-Jl 017 

u o o i a 
000019 


c * * * 


SUBROUTINE MATL 

THIS SUBROUTINE SUMS WEIGHTS BY MATERIAL CODE 

COMMON DX »DY #DZ #6 »GIMX »GIMY # GI M Z# I A# T AFLG# I AM# IASUB# IP# TPFL1 # 

1 IPE L 2 V 1 PSF »>. I C » M iVr-IL I ME « TGC t T I OX # TIOY > TIOZ, TMC , T PSC , TPRT 1 » TPRT2 # 

2 rPRT3 > TPRT4 » TPRT5 # TPP.TNl » TPRTM2 > TPRTN3# TRL # IRS# TW» TWO # TX # TX1 » 

3TY#TY1»TZ*TZI»WTHE#P> . . 

4L'PF(10) » IMA (40) » PSC (40) #WC(4nj #GC(40) »CM(40) #PRT1C40) #PRT2(40> » 
5PRT3(40) #PRT4(40) »PRT5(40> ?WX(40) > WGX(40) #WXX(40) #WGXX(40) »WY(40) . 
6 , '.'YY (40) »WGY(40) » WGYY (40) » WZ (40)# WGZ (40) # WZZ (40) # WGZZ (40) #W(40) » 
7WG(4C) f X 10(40) rXGIO-40) ,YIO(40) »YGIO(40) #710(40) »ZGIO<40) #X(«0) # 
8X6(40) # Y ( 4 0 ) r Y6 t 40 > »7(40) #ZGC40) »WX7(40) #wGXZ(4G) >TIX(40) #TGIX(40) 
9»TIY (40) #TG1Y (40) »TIZ(40) #TGIZ(40> *PW(3#40) #TPW<3»9) » 

A VJ X M ( 9 f# a'GX M ( 9 ) # w XXM(Q) » W G X X M ( 9 ) # W Y M ( 9 ) # WG Y M (V) # W Y Y M ( 9 }Vw GY YM ( 9 ) » 
BWZM ( 9 ) #'a'GZM(9) »WZZi’M 9) #WGZZM(9) #WM(9> »WGV.(9) ,XI0MC9> #XGI0M(9) » 
CYIOM (9) ♦ YGIOM ( 9) #ZI0M(9) »ZGI0M(9) » XM.( 9 ) , >.9M ( 9 ) #Y;«i<9) ,YGM(9).»ZM.<9) , . 
D7GM ( 9) » tfXZM ( 9 ) » WGXZM i 9 ) »TIXM(9) »TGIXM(9) #TIYM<9) #TGIYM(9) >flZM<9) » 
L T 6 I ZM ( 9 ? #WXY(40) # WYZ (40 ) # WGXY (40 ) #WGYZ(40) »WXYM(9> #WYZM(9> # 

i : A A » AH » AC > AD » AE » AF # AH » AI # A J » AK » AL # AM » AM #_AG.f A P . A Op AR # AS # AT > AU# AV# 

CAW # AX t AY # AZ » WGXYM ( 9 ) # WOYZM ( 9) # WTMTL ( 26) 


000020 

1=1 






OOOf ‘21 

IF (TMC 

» £0 • 

AA ) GO TO 1 


Ul'U 022 

1 = 2 






161)023 

IF (TMC 

• EG. 

A3) 

GO 

TO 

1 

v 0 L- ( • . *r 

1=3 






0 0 002 b 

IF (TMC 

• EG. 

AC ) 

GO 

TO 

1 

C 0 0 0 2 b 

T=4 






0 0 j » ! 2 7 

IF (TMC 

,EQ. 

AD) 

GO 

TO 

1 

tj J 0 0 2 6 

1 = 6 






C 0 3 (.29 

IF (TMC 

. EG » 

AE) 

GO 

TO 

1 

C • ■ 030 

1=6 






C ,'.'.'031 

IF (TMC 

• Z~ C# 0 

AF) 

GO 

TO 

1 

■w 00052 

1 = 7 






000033 

IF (TMC 

.EG. 

G ) 

GO 

TO 

1 

l 00034 

1 = 8 






0 10035- 

IF (TMC 

-EG. 

All) 

GO 

TO 

1 

600 03o 

5 ~ 9 






006037 

IF (TMC 

.EG. 

A I ) 

GO 

TO 

1 

OOuO-38 

1 = 10 






0 J i 0 39 

IF (TMC 

-» EG « 

AJ) 

GO 

TO 

1 

C 0 0040 

1 = 11 






u J 0 0 1 

IF (TMC 

.EG. 

AK) 

GO 

TO 

1 

0 CO 04 2 

1 = 1 ?- 






0 3 L 0 4 3 

IF (TMC 

.EG. 

ALS 

GO 

TO 

1 

0 Of. 144 

1 = 13 






0 1 10 045 

IF (TMC 

® EG * 

AM) 

GO 

TO 

1 

0 0 1 ..‘ 4 0 

1 = 14 ’ 






C-.-0l.47 

IF (Tt'.C 

.EG: 

AN) 

GO 

TO 

1 

0 0 CO 48 

1 = 15 






000049 

^«p0G(.’50 

I F ( TMC 
1 = 10 

• eg 0 

AO) 

GO 

TO 

1 

IF ' 7;«:C 

. EG . 

AP) 

GO 

TO 

_t 

f0)OOC52 

7 = 17 






fcO-^53 

IF £ TMC 
1 = 13 

• EG » 

AQJ 

GO 

TO 

1 

0 0 0 0 d b 

IF (TMC 

• U • 

AR) 

GO 

TO 

1 


000056 


1 = 1 0 



O') O'.'S? 

vkO’. 1 ;. 

i V » 426210 f 3 > 500 
I F ( T ;.1C . EG . AS) 

GO 

TO 


t) 0 0 068 

00(3059 

000060 


I=2C 

1FCTMC .EG. AT) 

1 = 21 

GO 

TO 

1 

000061 


IF (TMC .EQ. AU) 

GO 

TO 

1 

000062 


1=22 




000063 


IF 1 TMC .EQ. A V) 

GO 

TO 

1 

000064 


1=23 




C >J 0 U 6 5 


IF (TMC .EG. AW) 

GO 

TO 

1 

000056 


1 = 24 




006067 


IF (TMC .EQ. AX) 

GO 

TO 

1 

000060 


1 = 25 




000069 


IF (TMC .EQ. AY) 

GO 

TO 

1 

000070 


1-26 




000071 


IF (TMC .NE« A 2 ) 

GO 

TO 

2 

000072 

i 

WTMTL(I)=WTMTL(I)+TW 



000073 

2 

CONTINUE 




000074 


RETURN 




Co 00 75 


end 
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6297 


000001 
000002 
CU0C03 
00000 4 
CO 0 0 05 
0 00 006 
000007 
000003 
000009 

uuono' 

UOUUll 
000012 
0 0 U 0 1 3 
0 00 019 
000015 
0 0 0 0 1 6 
0 0 u 0 J 7 
000018 
000019 
000020 
000021 
000022' 
o C 1 02-, 
j u 0 024 
0 00 C 25 
CU0026 
OOt 027 
0 o 0 U 2 3 
fit. 0029 
C.-0030 
O'jOl.o.1 
yo 0032 
000033 
09 U 0 34 

0 0 0 j 3 3 

0.0 3 6 
’ 0 J0057 
000038 

01 CO 39 
0o.M' 0 


!S*> 

w 


J L 


l;/> 


000043 
000044 
•J 0 0 0 4 5 
o i; C : 8 

o •: c o 4 7 

0 ■ i ij 3 

0 1 j 0 U 4 9 
0o0050 
oo;io5l 
C C 0 J 2 ’ 
1 CC63 
(.,110 0 64 
OOuObD 
0 0 0 6 


SUBROUTINE "MIS SUM 

C *** CALCULATION OF MOMENT AND INERTIA ITEMS FOR ENGINE , VEHICLE INTEGRATION* 

C *** AND TOTAL ENGINE. __ 

COMMON DX * dV , 02 , G , GP'X * GIMY 1 GIMZVl A * I AFLG * I AM , I ASIJD , IP , IPFL1 * 

1 IPFL2 * IPSF * MIC , NI » NLINE, TGC * TIOX ? TIOY , TI07 , TMC * TPSC * TPRT1 * TPRT2* 

2TPRT3 * TPRT4 . TPRT5 , TPRTU1 , TPRTN2 , TPRTN3, TRL > TRS * TW , TWC * TX * TX1 , 

3T Y , T Y 1* T 2 , T2 1 , WTH£ * M • 

4\'.' F ( J.0) > IMA (40) ? PEC (40) * V-C (40 ) * GC ( 40 ) * CM ( 4 )) ,PRT1 (40) ,PRT2(40) * 

5PPT3 ( 40 ) ,PRT4(40) *PRT5(40) *WX(40> *WGX(40) »WXX(40) ,WGXX (40) *VVY(40) » 

" 6a YY ( 40 ) > KG Y ( 4 0 ) *WGYY(‘*D) ,WZ(40) * WGZ i 40 } * WZ 1(40) *Y/GZZ(40> *W(40) * 

7',-,'G (40 ) *XIO(40> j XGTO(40) f YIO ( 40 ) * YGIO ( 40). 2(0(40) ,2610(40) *X( 40)* 

LX C (40) * Y ( 40 ) * YG ( 40 ) ,2(40) ,7!G(40> ,WXZ(40) *'>.'9X2(40) *TIX(40) *TGIX(40) 

9.TIY (40) VTGIY (40 ) »TI?<40) *TGIZ (40) » F'W < 3*40 ) ,TPW(. 3.9) . 

AwXM(9) * WGXM (9) *WXXM(9> *WGXXM(9) »V'YM(9> *WGYM(9) *WYYM(Q> fWGYYM(9) * 

Pv ?M(9) ,;VGZM(9) *WZZM(9) ,VG2ZM(9> *WM(9) *WGM(9) *XI0M(9) »XGI0M(9) * 


CY) Oi i ( 9 ) . YGIOM(G) > ZION ( 0 ) ,2610'/ (9) *XN(9) *XGM(9) * YK(9) * YGM ( 9 ) »?M(9) 1 
DZGM < 9 ) * WXZMC9) *hGXZ;.',<9> ,TIXM(9) *TGIXM(9) * T I YM ( 9) * TGI YM (9) * TIZM (9) 1 
ETGIZM ( 9) /.V'.XYJ 40)* WYZ (4 0) * VGXY ( 40.) r WC-Y7 (4fi ) «WXYM(9>. *WYZM(9) . 

F A A , A 4 , AC * AD * AE * AF , AH , A I * A J * AX * AL * AM * AN ? AO * Ap * AQ * AR * AS * AT * AU * A V * 
GAL * AX * AY * A Z . WGXYM (9) > <>'GYZM (9). WTMTL ( 26 ) 


*** ZERO OUT EN GINE 
" DO '1 N=1 *9 ' 
w>:m(n> = 0 . 

V.'GXM (N)=0. _ 

V, X Xi l ( N ") — 0 « 

WGXXM(N)=0. 

wY(1(n)=o. 

VO Y,-i ( N ) =0 » 
vYYM(N>=0. 

, 6YY|.'(N)=0 jL _ 

' y,«2.v,(m)=0. 

'."C2M ( N ) -0 . 
WVZM(N)=0. 


VEHICLE INTEGRATION., AND TOTAL ENGINE DATA 


WGZZM ( N ) -0 

' TIX,Y < N ) =0 
TIY(-.iN)=0. 
T:ZM(N)=0. _ 
T ( 7 1 )(M ( M 5 z 0 * 
TGIYM(M)=0. 
Tfil ZM ( .'! ) -0 
WXZl-i ( M ) zG • 

V’X YM ( N ) zO . 
VJYZM ( N) rO . _ 
NT-0 ■ 

N— 1 
Ml = i 


MF=1 ft 
4 M=MI 

*** CALCULATION FOR BASIC ENGINE DRY, PARTS 1-59. 
19':'- <U(f) ■ .'EG. 0.) GO TO 2 " 

f.M (Njr.' i;.i(N) +(■,'( M) 
i'XN ( H ) 1 ( N ) +WX ( M ) 
fc'XXf; (m>=vj:<xm (N) +v/xxVm) 

WYM(N)=WYM(N)+WY(M) 




.000057. 
000055 
0 0 0 C 5 v 
0 1? 0 0 6 0 
000061’ 
0 u G C 62 
000063 
0 0 'J 0 64 
000065 
0 0 0 0 5 L> 
0 0 0 0 6 7 
0 0 0 0 6 3 
,01,059 
j c ’ o 
7 x 

..-■■■ 0 072 
0 0007,5 
','00074 
. Of 75 
7 > 

!) 0 GO i 7 
00007,' 
U i‘ 0 0 79 
OOOC 30 
0 0 0 0 6 1 
0 00 0.32 
4 0 0 D 8 5 
60 0 7 4 

o o o ; ,,3 
C 0 0 C 36 
0 0 i, fi 8 7 
'l)0 O'- 56 
0 0 'j 0 59 
( ',090 

OG J091 
0 0'. 092 
_ 300093 
’ C„ .0,94 
..M095 
0 0 0 0 96 
0 1,0 09 7 
0 <’ ? 90 
0 00099 
O'-, 2 30 

•> cm : Cl 

CO '.7i ',2 
00 01 03 
P G 0 1 0 4 
0 i' ) 0 5 
. 0 „ 0 l3 

0 0 0 x 0 0 

ODDI 09 


««OuD 2 10 
00 Dill 


C, 


0 U 0 X i 5 

(j 0 0 1 i & 


V YYM( M)=WYY K ( NO +W Y Y(M ). . 

V.’ir.l ( N) =W7M ( N ) +WZ ( M > 

WZZM ( M ) =WZZN, ( N ) +W7Z ( M ) 
l.'XZM ( M ) =WXZM ( N ) +WXZ < m ) 

W X Y M ( N j = W X Y M ( N > + Vj X Y ( M ) 

»' YZM ( N ) = W YZM N )+WYZ(M> 

__TIXH(N)=TIXM(N)+TIX(M) 

T 1 1 M ( N 2 -T I V M ( N )+TTY'( M"> 

T I Z,v, t N ) =TI ZM ( N ) -s-TIZ ( M ) 

IF ( v G i ,7 ) „EQ. 0.) GO TO 2 

'•'Gf-U N ) =WGfc (N)*WS'(M) ' ' , "" ' 

WGXM ( N i S’A'CXM ( N ) +W GX ( M ) " 

V:&XXM(N)=V.'6XXM(N)+WGXX(M) ____ 

'/ GYM ! N5 ='.2GTM ( N ) + WG Y ( ,Y 3 ’ ’ 

V-GY YM ( N ) =WGY YM < N ) +WGY Y ( M ) 

l', 1 0 7. M ( N ) = .1 G Z M (Di) +_WGZ < M ) _ 

W G 1Z-A ( N ) = W G Z ZM < N ) + WS Z 2 ( M ) ' " ' 

TG I Xr'i ( N ) = TG I XM < N ) +TGI X ( M ) 

TGI YM (N ) = TGI YM <fl) + TGT Y (m ) 

TGI ZM ( N ) =TG I Z?", ( N ) VTG 1Z (to) 

2 CONTINUE 

_ _ _ 

IF t M • ST • MF ) GO TO 3 ” ' 

IF (i! .EG. 9 .AND. N, .EG. 21) M=40 

IF (M .EG. B_. AND . M .EG._2.U_ M=40 

GO TO' 19 

o IF ( ',:‘C ( t\l ) .EO. 0.) GO TO 150 

>'M ( N , -V'XM ( N ) /WM i tj ) ___ _ _ _ 

Y Y ( M ) = tt Y M ! N ) / W y, ( N ) 

2M(N)=W2:i(N)/R(r<(N) 

_XIOM(N) -'V/YYM (N) +WZZM(M)+ TI XM < M ) -J-.'M ( M) * ( YM ( N> *YM ( N) +2M ( N) *ZM (N) ) _ 

Y l OM ( N > S'VXXM ( N) -l iVZZM (ti j + " T I YMI ( mT-WMV| I)’* (XM (Ml *XM(N >'+7M ( N ) *ZM< N ) ')' 

7 i 0 ;■, ( N ) - w Y Y M I N ) + 'V X X N ( N ) + TIZM<N>-WM(N)s=CYM(r!:*YM(N)+XM(N)*XM(N) ) 

150 CONTINUE 

'IF ( WON ( ID „£0. 0.) GO TO 5 
C *** INCLUDE GIN, HALED ITEMS 

yGM(M)=WGXM(N)/WGM(N) 

' ygf;(n)=wgym(n)/wgm’(n> 

ZGM { N ) - .-.’GZ.'-i ( N ) /’;) GM ( N ) 

XGIO'i (f!) -7’GYYM (U ) -I-UGZZ^ (M ) vTG t Xk (I*) -'•)GM(f!) # i YGM(M).*YGM(M) + ZGMCN) *. 
l' ZG'-l !!)l) ♦»;SM ( N ) 4.' ( ( Y(5,w'( N ) -G I '1 Y ) **?. + ( 7GM ( N I -GlMZ )**? )’ ’ 

YG i OM ( N ) =WGXXM ( N ) +WGZZt‘ ( f 1 ) +TGIYM ( N ) -WG« ( N ) * i XGM : N ) +XGM ( N) +ZGM (N ) * 

I ZGM(N) )+V,'GM(N)*< (XGM(N)-SIMXU»2+(?GM<N;-GIM2)+>'2) 

7G i Of I ( M ) =v;G YYM ( N ) + W G X X m ( M) +TGI Z’f-' ( N) -WG'-U N ) * i YGM ( N > * YGM (N )+XGM( N ) * 
1 XGM ( N ) ) +V/GM {»)*<( XGM ( N ) -GIMX ) **2+ ( YGM (N)-GIMY) **?. ) 

5 ?-:=Kvl_ _ _ _ 

GO TO ' 20 ? 20 ? 40 , 50 » &0 f 70 » 80 . 90 » 1 00 , 1 0 1 ) » N 
20 N- 1 —20 

C_#** CALCULATION FOR .BASIC ENGINE PROpplLAMTS . _P_/ PT 20 

Mr — 20 
GO 70 4 

40 J=1 _ 

C Y** CALCULATION FOR BASIC’eNGINE WET. PARTS 1-2C. 

11 w'i(il)=WM(J) 

v X , i ,\- ) = w / m ( J ; 

>. X?*. { i .' ) “ X X H ( J 5 
W V ( N / “J Y!' ( J ) 

WYY,-uN) = .VYYMl.J) _ 

~’i-.?v<n)=wzn!< J) ' 

v.zZM ( r; > =/iZZM ( j ) 
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0 6 0117 
0 G 1 1 6 
000 117 
000120 
000121 
000122 
000123 
000120' 
0001213 
000126 
C 0 0127" 
C 00 128 
000129 
0 0 05.30 


SvXZf-! t r* ) YZv; ( J) 

*..'XYM (N ) -'IXYil ( J ) 
WYZM{N)=WYZM(J) 

TIXM(N)=TIXK(J) 

T1YK(N)=TIYM( Jj 
TIZM(N)=TIZM<J> 
if (v;gm;j) .eo. o.) go_to _12 

y.'G -i(!i)= ; VGM( J) 
vGXM • N ) ri-'GXM ( J ) 

V/GXX” ! N) - V/GXXM ( J ) _ _ , 

WGYYi ( N ) r'.VGYM ( J ) 
WGYrM(M)=WGYY.w(J) 

>.-:GZM(N)=WGZM(J) _ 

■fe-GZZM ( N ) =V.'GZZw ( J ) 


0001 3 i 


TGI 

XM ( 

N ) -T 

GIX?' 

t j) 







T 1,0132 


TGI 

Y-; ( 

N)=T 

GIY,'! 

u) 







OOu.t 3 3 


TGI 

2 V} { 

N)=T 

GIZM 

(<jj 







900134 

12 

IF 

( j 

• EG. 

4 . 

AND. 

IT 

• EO. 

6) 

GO 

TO 

13 

COU j 35 


IF 

(j 

»EO. 

1 . 

AMO. 

M 

* EO t 

7) 

GO 

TO 

14 

00 01 16 


Tr 

( j 

• EO. 

7 . 

A i 10. 

N 

.20.. 

9) 

GO 

TO 

15 

0 0 ) 1 v* 7 


>' I Z 

20 










•in 01 58 


tfz 

20 










LG 9.1 59 


GO 

TO 

ix 









• ' C ;J 1 -i 0 

50 

J.F 

( I A 

r LG 

m 

o 

1 ) 

return 






cOi;! 41 
V 0 Ji 'i2 
0 Ci, 1 '.'-J 
0 0 (i 1 40 
0 0J '4C 
000,46 
0 00 14 7 
JO '! i 4 y 
0 JO 149 
COolsO 
OL ' Ol.Ol 


_C _*#* 
C *-r* 


to 

C 


70 


option' is' *A a 


IF IA C LG=1> 

"1=21 

:-F=27 

GO TO 4 
MI =40 

C ALCULA T I ON FO R VE HI CLE_ I NTEGRA T I ON PROPEL. LANT S. P ART 40. 
f ' F =4 C 
GO TO 4 
J— 4 

CAUCijL'ATXON 'FOR VEHICLE" INTEGRATT'Orr wET'T' P ^RTS 2l.-28.407~' 


0 GO 152 


GO TO 11 

u 0[j 153 

13 

v,I=40 

iiJi'lr-4 


V.F =40 

0501.35 


00 TO 4 

000156 

10 

J=1 

000137 C 


CALCULmT 

QUO 155 


GO TO 11 

0 0 0159 

14 

Ml ~2 X 

00 010,0 


'■••1=27 

■ 1 0 X 1 


GO TO 4 


90 

MI =20 

i.J'jloJ C 

#*<! 

C ALCULAT 

U 0 01 6 4 


MF=4C 

UO U 165 


GO TO 4 

0 0 Cl 66 

IOC 

J=7 

0 ••,-57 C 

* * -J' 

r alculat. 

Clk 16b 


GO TO U 

U 0 0 1 

15 

,'•1=20 

GC0170 


\’F = 40 

G;:;j171 


GO TO 4 

Co 01 72 

101 

CCiiriNUE 

0 -> i* t. i $ 


RETURN 


"TOTAL ENGINE dry. PAPTS‘"l-19. 21-28 . 


‘FOR TOTAL ENGINE* PROPELLANTS." PARTS 20.40. 


-OR TOTAL ENGINE WET. PARTS 1 -3 9 r 20 .21-28 . 40 . 
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000001 
000002 
_ 000003 

0 U 0 0 0 4 
j 0 o 0 0 5 

0 1 1 0 0 U 6 

0U0C07 - 
oooooe 
0 000 09 
0 0 0 0 0 
0<- UlUl 
000012 
000 C 13 
000014 
00Lui5 

. * o 

000 017 

oo oo la 
000019" 
0 0 0 020 
00002.1 
O.i j0 22 
■ - o ... 0 ci 3 
0 4 IK! 2.4 
0 f; C 02S 
J 4 C 0 2 6 

0000 27 

0 0 o l ■. ft 
00 0 0 29 
00 i0 30 
C jl 
000032 

C.J0033 

1)1. 0 0 J4 

.000035 

000 036 

D00037' 

j 0 l. . 1 3 3 

000039 

o'jitmto 

U.iUOOl 

J U l J 0- J 

00G(iv3 

OUui'44 
<) oft 0 4 5 
000(016 
0 0 U 0 4 7 
C 0 u 0 > > B 
' QUO 049 
00C050 
00C 031 
tV CO 00. ".2 
«v3 ::Cl. )‘„0 
00 (. o4_ 
> ■ j j 0 -> 3 
0 0 d056 


C + ** 
C 


SUBROUTINE PRINT 

THIS SUBROUTINE CONTROLLS ALL PRINTING EXCEPT DETAIL WEIGHT STATEMENT. 

: #_PRiriT OF SUMMARY WEIGHT STATEMENT. 

DIMENSION GCXIOM ( 3 ) * GCYIOM ( 3 ) *GCZT0M(3) 

DIMENSION I i ( 21 ) ^ CD £ 3 ) > PM (4) *R ( 12 ) * PP ( ?) 

COMMON DX i DY ?DZ *G> GI f, X . G I MY . G IMZ * I A .J AFLG * I AM * I ASUS , IP * 7 PFL 5 * 

1 IPFL2 * IPSF * MIC. NX * NLINE* TGC * TIOX » TIOY * TIOZ* TMC.TPSC * TPRT1 * TPRT2 * 

2TPRT3 * TPRT4 * TPRV5* TPRTN1 * TPRTN2* TPRTN3 * TRt.* TRS* TW * TWC * TX * TX1 * 

37Y*TYl*T2*Y21»W7ME?M* _ _ _ . 

4MPFU0) * IMA (40 ) *PSC<40) *WC(40) *GC(40) *CM('0) >PRT1(40) *PRT2<40) * 
bpfiT3 ( 40 ) * PRT 4 (40) *PRTS(4C) *WX(40) *WGX(«0) ) WXXC40) * WGXX(40) *WY(40) * 

6WYY ( 40 ) * WGY < 40 ) *_»'GYY(40) ► WZ ( 40 )_* w'rcZ (40 > *W7"Z(40) *W6ZZ(40) *W(40) * 

7WG <40 f* XI 0(40 ') VXG 1 6 ("4 n ) , YI 0 < 40 j * YGICt 4 0 ) i 7 1 0 ( 40 ) * ZG 10 ( 4 0 ) . X ( 40 )T 
r.X5(4C) * Y ( 40 ) * Y 0 ( 4 0 ) *2(40) *ZS<40) ,WXZ(40) *VGXZ(40) *TIX(40) *TGIX(40) 

9> T.t Y ( 4 0) *TGI Y (40 ) *TIZ<40> *TGT?(40) * PW ( 3*4 < > *T?W.(5*9) * _____ 

**V:XM ( 9 ) * WGXlT (9) *WXW<9) » WGXXfi ( 9) *w'YM<9> *WG’tM<9> * WYYM ( Q ) *WGYYM(9> * 

I i’.v'ZM ( 9 > * WGZM ( 9) * WZZM (9) *WGZZM(9) * WM ( 9 ) *WGM<9) *XIOU(9> *XGI0M(9) * 

CYIOM (9) > YGIOM (9) f ZlOMt 9) * 7GI0M ( 9 > * XM ( 9 ) * XF-M ( 9) * YM ( 9) * YGM (9) *ZM (9) * 

DZGM ( 9 ) *WX2M(9) *WGXZM(9) *TIXM(9) *TGIXM(9) *TIYM(9> *TGIYM(9) »TIZM(9> * 
LTGIZM ( 9) * V.'XY ( 40 ) * WYZ ( 40) *WGXY<40) . k'GYZ ( 40 ) *WXYM(9) »V/YZM(95 * 

Fa A * AS * AC * AD * AE > AF * AH * A I , AU* AK * AL * AM * AN * AO_* AP* A<5 * AR * AS * AT * AU » A V * 

G A t AX * AY , A2» WGXYM ( 9) .• WGYZ'T ( 9 ! * WTMTL ! 26) 

DATA STAR / ‘ * * /*DOL/ » T, * / 

WRITE (6*1) _ _ _ __ 

1 FORMAT ( 1H1 * /////// * 5 0X~* * SUMMARY WFIGHT STATEMENT* *//* “ 

1 ' MA’*b2X* 

2 'WEIGHT CENTER OF_ GRAVITY GIJ£RALED_INERT.IA •_*__ 

317X * * PERCENT * » / * 56X * 


4 .LB. INCHES 

b * X Y Z ' * 6X * «_ 

6*8X*'EST. ’ CAL. ACT. 
XGIOi20)=XGIO(20)/4637c 
YGlO(?0)=YGIO(20)/4637» 

' ' ZG 10 £ 20 j =Z3 10 ! 20 ) /463? . 

X f- 1 0 ( 4 0 ) - XG 1 0 < 4 0 ) /4 637 . 
YGIO ( 43 i -Y6IG ( 40 ) /4&37„ 
ZCIO(40)=Z6IO(4G)74637. ' 
DO 41 I = i * 3 

DO 41 Nst * 9 ______ 


x -x 

( ) 


slug-ft. 

Y-Y 


SQUARED* * / * 63X a 

z-z* 


41 


5 

10 


TPW(I*N)=0. 

r)=i 

,M=19 

K-l 

DC- 5 1-1*9 

X I OM ( I ) rXIUM ( I ) /4637 
Y I OM, ( 1 5 = Y I OM (I ) Z4637 . 

Z I OM ( I ) =21 OM ( I ) / 4637 . 
X<-IOM( I )=XGIOM( I )/4637„ __ 
YGIOM ( I ) = YGIOM ( 1 ) /4637. 
ZGIOM ( I ! =ZGIOM (D/4637. 

DO 2 . I=N*M 

IF <>.-.(1) .EO. 0.) 30 TO 2 
XG1C>( I )=XGIO( D/4637. 

YGI0( I )=YGI0( D/4637. 

ZGIG(I)=ZGI0(D/4637. 

DO 42 J=l*3 
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000067 
1 0 0 038 
00 C 059 
00 DC 60 . 
000061 
000062 
0UU063 _ 
0 d 0 064 
OOOOt.5 
000066 
0 0 0067'" 
0 0 QG 68 
(J JO 069 
000070 
000071 
000072 
000073' 
000074 
000075 
00 •.id 76 

00. 1077 
000070 
000079 
00 CO *30 
000081 
1)00 O 02” 
000083 
00110 64 
00(1086 
OOOC86 
*100007 
Odor. 6 6 ■ 
00 J069 
OU U090 
000091 
(•0 0092 
000093 
GUO t 94 
090095 
.‘•JOG 06 

1. 'UUC 97 
000096 
000099 
CO 01 00 
QUO 101 
009102 
Duel U 3 
OGGI 04 
0 0 G 1 0 5 

0 ij 1 06 

1 Od 1 0 7 
G0..UU8 
000109 ’ 

coo: io 


TPW ( J t K ) =TPy.‘ { J* K ) +PW ( J * I ) 

42 PW(J, I>=PW(J*I>=HOO./W(I) 

VRITE (6.3) 1MA(T) *PRT1(I> > PRT2 ( T ) *PPT3(i: *PRT4(I) *PRT5(I) *W(I> » 
_ iXm.Y(I). 7 (I) * XGI 0 ( I ) .YGIom ,Z_GIO_m * PW (.3 *JL> *PW(2*_I_) *PW(1*I) 

3 FORMAT ( 13* 7X * 4A4 * A3 * 20X » FlO . i * 3F6» 1 * 2X * 3F..1 . 1 ► 2X * 3F5. 1 ) 

2 CONTINUE 

_ IF (M .EG. 2fi)_ GO TO 11__ ___ 

" TPW (1*1) =TPW (1*1) *100 . /WM < 1 ) 

TPW ( 2 * 1 ) -TPW ( 2 * 1 ) * 100 . /WM < 1 ) 

_ TPW(3*1)=TPW(3_*1)*100./WM(1) 

IF (IMA (19) .EQ. 6) GO TO 43 ' 

WRITE (6* 44) PRTK19) *PRT2(19) *Pr<T3(19) *PR‘‘4(19) »PRT5(19) * 

1 _V.'M ( 1 ) *XM ( 1 )> YM (_1 WZMU > * XGIOMi’ l) »YG IOM(l ) *ZG TOM (J 

' 27 PW (3*1')* TPW (2*1) > TPW (1*1) 

44 FORMAT ( / * 13X * ' * NAME * » * 4 A4 » A3 * • TOTAL • * 3X 

X * FlO o 1*3F6. 1 * 2X * 3FI1 . 1 *2X >3F5 »1) 

GO TO 48 

43 WRITE (6.46) WM ( 1 ) * XM ( 1 ) . YM ( 1 ) * ZM ( 1 ) , XGIOM ( 1 ) * YGIOM ( 1 ) * ZGIOM (1 ) * 

1TPW (3*1) * TPW (2*1) * TPW (1*1) _ _ 

46 FORMAT!/ 13X'* 'BASIC MOTOR INERTS' * 18X 
X . F 1 0 * 1 * 3F6 . 1 * 2X * 3F1 1 . 1 . 2X * 3F5 . 1 ) 

_4 5_ I F C;.iM(2) .j£G. 0.) GO TO 47 _ 

TPW ( 1 * 2 ! =P'W ( 1 * 20 j *100 • / WM ( 2 ) " 

TPW (2*2) =PW ( 2 * 20 ) * 1 0 0 . /WM ( 2 ) 

TPW ( 3 * 2 > rPW ( 3 * 20 ) *100 » /WM ( 2 ) • _ 

TPW ( 1 * 3) = ( TPW ( 1 * 1 ) /l 00 . ( 1 ) +PW '( 5*20 ) ) *V‘6 \ / WM(3) 

TPW < 2 * 3 ) :: ( TPW ( 2 * 1 ) /1 00 . *WM C 1 ) +PW ( 2 * 20 ) ) * 1 00 . /WM ( 3 ) 

TPW ( 3 * 3) = ( TPW ( 3 * 1 ) /1 00 . *WM ( 1 ) +PW ( 3 * 20_> ) *1 00 . /WM ( 3 ) 

IF ( IMA (19) »EO. 0) GO TO 48 ' 

WRITE (6*49) PRT1U9) *PRT2(19) »PRT3(1P) *PCT4(19) * PRT5 ( 19 ) * WM ( 2 ) * 
1 X M ( 2 ) . Y ;*!(?.) *ZM(2) *XGIOM(2> *YGI0M(2) » ZGIOM ( 2 ) * TPW ( 3 * 2 ) * TPW ( 2 * 2 ) * 

2 TPW (1*2) ’ ' "" *• " 

49 FORMAT (13X* »* NAME * * , 4 A" * A3 » ' PROP. * * 3X 
_ X >F1C»1*3F6.1*2X*3F11«1*2X*3F5.1) 

' VR IT E ( 6 * 50 > PRTK19) *PRT2U9) »PRT3(T?) * PRT4 (19) VPRT5 ( i9T* WM(3') * ' 

I X M ( 3 ) * YM(3) * ZM ( 3 > *XGIOM(3) »YGIOM(3) *ZGIOM(3) *TPW(3*3) *TPW<2*3) » 
2TPW (1*3) 

50 FORMAT (" I3X* '* NAVE”* "* * 4A4 *A3* »'f^TAL 'Y3X" 

X * F 1 0 . 1 * 3F6 . 1 * 2X . 3F 1 1 . 1 * 2X * 3F5. 1 ) 

GO TO 47 . _ __ 

"48 WRITE ( 6*51! " "WM (2) * XM ( 2) * YM (2 )"* ZM ( 2 ) * XGIOM (2) * YGIOM ( 2 ) * ZGIOM (2 ) * 
1TPW (3*2) i TPW (2*2) *TPW(1*25 *WM(3) *XM(3) *YM(3> *ZM(3) *XGI0M(3) * 

2 YGIOM ( 3 ) * ZGIOM £ 3) *TPW(3*3) *TPW ( 2 * 3_L* T£W < 1 * 3j 

51 FORMAT ( 13X * 'BASIC MOTOR PROPELLANTS '*12X 
X . F 10 . 1 * 3F6 . 1 * 2X * 3F1 1 . 1 > 2X * 3F5 . 1 

_1 /* 13X * • BASIC MOTOR ' * 25X 

“ X ' » FlO • 1 * 3F6."l » 2X * 3F11 • 1 * 2X *3F5. 1 ) " 

GO TO 52 

4 7 wR I TE < 6 * 5 3 ) 

"'53' "FORMAT (/)" 

52 CONTINUE 

IF ( I AFLG »EQ._1 ) GO_TO__20 

" N=21 
Mr 2 8 
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MAR72 


MAR72 

MAR72 


MAR72 

MAR72 


MAR72 

MAR72 

MAR72 

MAR72 


ocelli __ ;<=_4 _ __ _ 

000: 12 ' ’ GO T 0 10 

■;co:.i3 ii continue 

14 T PW (1*4) =TPW ( 1 * 4 ) *100 . /WM ( 4 )_ 

000115' * TPW ( 2 * 4 )=TPw"( 2*4 ) *100 . /WM ( 4) 

0 0 C 1 16 TPW ( 3 * 4 ) =TPW ( 3 » 4 ) *1 0 0 . /WM ( 4 > 



VRWil, 


■ 426? I j p 5 p 6u (I 


DATE 16 MAY 72 PAGE 


007117 

O'J'jllS 

0001.1? 

QU0120_ 

000121 

000122 

000123 

oo o: vi 

00012b 

(j 0 0 126 _ 

000127" 
000128 
0 G u 1 29 
uy.''i3o' 

i; O' 0 ) 3 1 
0 0 0 1 32 
000133 ~ 
000134 
.1003 35 
OC'jl >6 
0001 37 
000138 
O'J 0139 
ODD C 
GC014.1 
000142 
000143 
000144 
00 01 '15 
00 Cl 46 
0001 47 
OOo 1 4 8 

onui ‘'-9 
o 0 '■) 1 30 
QOi.'lbl 
000152 
0003 53 
'009154 
oo.' 10,5 
00 015 6 
0 0 0 1 57 
000153 
0001 69 
'000160 
000161 
00.9162 
OOl'.J 65 
0 u ij i 04 
0 0 0 1 8 5 

0 0 0 1 o 6 

O') 01 67 
) . 00 1 b 3 
Do j 169 
0 m!170 
n 0 0 1 7 1 
0 J(ji72 
•J 00 173 
0 o 0 1 • 4 
000175 
U 0 0 1 7 6 


__ IF ! IMA (23) . EQ._ 0 ) GOTO 54 

V'RITE PRTK28) »PRT2C23> »Pf>T3(g4) #PR74(28> »PRT5<28> »WM(4) » 

1 X M ( 4 ) p Yi4 ( 4 ) p ZM ( 4 ) » XGIOM ( 4 > p YGIOM (4) p ZGTOM !4 ) ,TPW(3p4) pTPW(2p4) p 

2TPW { 1 p 4 ) __ 

"" GO TO 55 ' " " ~~ 

54 WRITE (6p 56) WM<4) pXM<4) ,YM<4) pZM(4> p XGIOM 14) pYGI0M(4) pZGT0M!4) p 

1TP.H 3 1 4 ) p TPw ( 2 » 4 ) < TPW ( 1 » 4 ) 

FORMAT!/' p 13X > • NON~CONTR ACTUAL INERT' » 15X 

.. p F 1 0 . 1 . 3F6 « 1 p 2X p 3F1 1 . t » 2X p 3F5 . 1 ) 

I F ! l-:M ( 5 ) _• EQ «_ 0 . ) GO TO 5 7 

TPW ( 1 » 5 ) =PW ( 1 * 40 ) *1 0 0 . 

TPW ( 2 > 5 ) =PW ( 2 • 40 ) * 10 0 . 

TPW ( 3 > 5 ) =PW ( 3 » 4 0 ) *1 0 0 . 


56 


MAR72 

MAR72 


. /WM < 5 ) < 

> /WM ( 5) 

> /WM ( 5 ) _ 

TPW ( 1 p 6) = ( TPW ( 1 p 4 ) /100 . *WM ( 4 ) +PW ( 1 #40) )*lf O./WM! 6 > 

TPW ( 2 p 6) - ( TPW ( 2 p 6 ) /100.*WM ( 4 ) +PW (2 p 40 ) ) *1 C 0 . /WM (6) 

T P W ( 3 r 6 ) = < TPW ( 3 p 6 )_/i 0 0 . * vMj 4 ) +PW(3#40 ) JjML C O./W M ( 6 ) 

IF (IMA (2ft) .EG. 0) GO TO 753 

WR1TE ( 6 p 49 ) PRT1C28 ) pPRT2(2S) pPRT3(28) pP i; T4<28) pPRT5(28) pWM(5) p 

1 XM ( 5 ) p YM ( 5) p.ZM ( 5.) > XGIOM (.5 )_»YGI 0M(5) pZGIOM! 5) pTPW (3p5) p_TPW ( 2 p_5.)_p 

2 TPW ( 1 1 5 ) 

WRITE ( 6 p 50 ) PRTU26) pPRT2(28) » PRT3 ( 28) p PF T4 ( 28) p PRT5 < 28) # WM (6) p 

_1 XM f 6 ) p YM(6> p ZM ( fc ) p XGIO H ( 6 ) # YGIOM ( 6) p?GI 0M( 6) #TPW(3»6 ) pTPW(2p6) p 

2TPW(1p6) 

GO TO 57 

_7 58 WRITE ( 6p 53) WM ( 5) p XM ( 5) t YM ( 5) > ZM ! 5 )_p XGIOf ( 5) p YGI0MJ.5) > Z9I0MJ5)_»__ 
1 T P W ( 3 > 5 ) p TPW ( 2 p 5) pTPW<.Ip5> pWk’(6> pXM(6) p YM(6) pZM<6) pXGI0M(6) p 
2 YG I OM ( 6 ) p ZGXOfl ( 6 ) #TPW(3#6 > pTPW(2p6) pTPW(1#6> 

_5£> FORMAT ( _ 

1 15Xp 'NON-CONTRACTUAL PROPELLANT ' p 1 OX 
X pF10.1p3F6.1p2Xp3F11.1 p2Xp3F5.1 

2 _ / p 13X > 8 NON-CONTRACTU AL T OTAL* p !5X 

’ X' pF'ld.'lp'3F67ip2Xp'3Fll". ) .2 X’p3F5.1’) 

57 wR IT E ( 6 p 53 ) 

WRITE i 6 p 8 ) WGV ( 7 ) pXGM(7) # YGM(7) p ZGM ( 7) p XG I OM ( 7) > YGIOM ( 7) pZGI0 M(7) 

8 FORMAT (/ p 13X p ' GIMBALF.O iTfERTS * p 2ix" * ' " 

Y p F 1 0 . l p 3F6 » l p 2X p 3F1 1 . ). ) 

IF ( WGM ( 8 ) .EQ. 0. ) GO JO 802_ 

!-R 1 ! E ( 6 p 8 0 1 } 

1 WGM (8) pXGMC«> p YGM ( fi ) pZGM(8) p XGIOM ( 8 ) »YGI0M<8 > pZGIOMCA) p 

2 WGM<4) pXG.’-KO) pYGM(?) pZGM(9) »XGTO u (9) pYGIOM(9) pZGI 0M(9) __ 
"aOi FORMAT (13X» ’GIMBALED PROPELLANTS' p"16Xp‘F 10." r»3F67l'p2X'r3Fll 7lp" 

1 /. 13Xp 'TOTAL GIMBALED *p15X 

Y_ p F10 » 1 » 3F6 » 1 p 2X p 3F1 1 • 1 ) 

802 v RITE (6/12) 
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12 FORMAT ( / p 55X p * WEIGHT 
1 2 1 X p * PERCENT l / . /56X , 


CENTER OF GRAVITY 


INERTIA* p 


2 * L3 . 

3 » SLUG-FT . 
_4 p 8X p * E5T o 
TRW(1p7) = 
TPW! 2-> 7) = 
TPW (3.- 7) = 


MOTOR 
Z* p AX. 


G. ' 
X-X 


p/i 


88X 

Y-Y 


INCHES ABOUT 

SQUARED* #/p63Xp *X Y 

_CAL. _ ACT.*) _ __ 

(TPW! 1 p 1 j/1 OO.rv'Md ) +fPW< 1 p 4T/ 1 0 0 . *WM ( 4 ) )*i00./WM(7) 
( TP'.v ! 2 > 1 ) / l 00 . * WM ( 1 ) + TPV ( 2 p 4 ) / 1 00 » *WM ( 4 ) ) * 1 0 0 • / WM ( 7 ) 
( TPW < 3 p 1 ) /1 00 . *W M ( 1 ) vTPW ( 3 p 4 ) / 1 9 1 . *WM ( 4 ) ) *1 00 . /WM ( 7 ) 
WRITE (6# 59) WM (7) »XM<7) p YM ( 7 j p ZM (‘7 )’ p'XTOM ( 7 ) p YiOM(7") pZI0M(7> p " 
ITP'W ! 3 p 7 ) pTPiv ( 2 p 7 ) p TPW ( 1 p 7 > 

59 FORMAT! 13Xp 'TOTAL MOTOR_ I HERTS •_» 1 8X_ 

X p F 1 0 . 1 p 3F6 . 1 p 2X p 3F1 .1 > 1 p 2X p 3F5 • 1 ) 

IF (vy.(R) .EG. Op) GO TO 20 
TPW(1#8)= ( Fifi i 1 p 20 ) +PW < 1 p 40 ) ) *100. /V'M (3) 

TPW (2 p 8) - ( P'Y ( 2 # 20 ) +PW "( 2 p 4 0 ) ) # 1 0 0 . /WM ( 8 ) 

T P W ( 3 ' 8 ) = ( PW ( 3 p 20 ) +PW ( 3 p 40 ) )*100./WM<8) 
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Z-7* 


MAR72_ 
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3 ? 


000177 
COO 178 
GOO 179 
0 0 018 0 
000181 
000182 
000183. 
000137 
000185 
000 ! 86 
000167 
0 C 0 1 c 8 
000189 
000190 
000191 
000192 
000193 
000194 
000195 
00 J 19b 
000197 
00 J . 19 ft 
000199' 
000200 
OU0201 
000202' 
0 ; j h 2 0 3 
000204 
000205' 
000206 
000207 
000208 
000209 
_G 0 0 210 
”ju 0211" 
000212 
000213 
U 1/0214 
C 0 0 2 i 5 
000216 
u U 0 2 1 7 
0 0021 b 
000219 

0 0 0 tL 2 0 

00G221 

000222 

000223 

000224 

000225 

000226 

000227 

.100226 

000229 

000230 

000231 

000832 

000233 

00u2o4 

0C0235 

000235 


C *** 


17 


AMn BALANCE DATA* */) 
(19) * PRT2 ( 19 ) *PPT3< 19} ,PRT4(19> »PRT5(19) 


63 

62 

6 b 

64 
86 


24X > NAME * * .4A4.A3*//) 


TPW (1*9)=. ( TPW ( 1 > 7 ) / 1 0 0 .*WM ( 7 ) ,+TPW ( 1_» 8.) / J 00 . *WM ( 8 ) ) * 1 00 . /WM<9 ) 

TPW ( 2 * 9 > = ( TPH ( 2 * 7 ) /100 . ( 7) +TPW ( 2 * 8) /IPO . *WM ( 8) >*100./WM(9) 

TP W ( 3 . 9) = ( TPW ( 3 » 7 ) / i OC . *WM ( 7 ) +TPW ( 3 . 8 ) / 1 00 , *WM ( 8 > ) *1 00 . /WM < 9 > 

WRITE (6*61) V.'M(8) *XM(8) * YM( S) * ZM( 8_)_*XI0M(8) * YIOM( 8) *ZIOM( 8) * 

1TPW (3*8) * TPW (2*0) . TPW (1*8) *'wM(9") »XM(9) * YM : 9)' . ZM~( 9 ) *XI0M(9) *YI0M(9) 

2 * 21 OM ( 9 ) * TPW (3*9) .TPW (2* 9) *TPW(1 .9) 

61 FORMAT (13X. 'TOTAL MOTOR PROPELLANTS* . 13X 

X *F10.1*3F6.1 .2X.3F11 .1 »2X#3F5.i 
1 /*13X. 'TOTAL MOTOR* *25X 

X *F10.1*3F6.1.2X*3rlt_»l*2X*3F5»lJ 

20 CONTINUE « 

WEIGHT AND BALANCE DATA-ENGINE. 

WRITE (6* 3 7) _ _ 

FORMAT ( 1111 * /»//////// * 24 X * 'WEIGHT 
IF ( I M A ( 1 9 ) o E Q o 0. ) GO TO 62 
WRITE J6*63_)_PRT 
format "( 

GO TO 64 

WRITE (6*65). _ 

FORMAT (27X. 'BASIC MOTOR' *//) 

WRITE (6*86) 

FORMAT US X* ’ WEIGHT CENTFR OF GRAVIT Y* */ .4feX* 

1 « LU o " INCHES* »//*54X* *X Y Z« ) 

IF ( IMA ( 19) .EQ. 0) GO TO 37 

V'R I Te ( 6 * 88 ) PRT1U9) rPpJ?(19) *PRT3(_19) >PR 74(19) *PRT5( 19) *WM(J > 

1XM ( 1 ) * YM ( lT > ZM( 1 ) 

88 FORMAT (/*' * NAME * ' * 4A4 * A3 . » INERT ' * 5X . F10 . 1 » IX * 3F6. 1 ) 

IF ( V.M ( 2 ) .EQ. 0.) GO TO 39 _ _ _ 

WRITE' ( 6 > 90 ) PRT 1 ( 19 ) * PRT2 ( 19) * PRT3 ( 19 ) * PRT4 ( 19 ) * PRT5 ( 1 9 ) * WM ( 2 ) * 

1XM ( 2 ) . YM<2) * ZM ( 2 ) *PRT1 (19) *PRT2(19) *PRT3( (9) .PRT4Q9) *PRT5(19) * 

2WM ( 3 ) * XM ( 3 > * YM ( 3 ) * ZM ( 3 ) 

90 'FORMAT (/'*■ “ ' >i NAME * '*74A4 »'A3. * PROP. 3 < * FloVl *1X . 3F6i t *7'/ * 

1 * * NAME * ' *4A4. A3. 'TOTAL* * 3 < » F10 . 1 * IX * 3F6. 1 ) 

GO TO 89 

67 ’ 'WR I TE ( 6 * 91 ) WM ( lTVXM ( 1 ) * YM (T ) * ZM ( i ) 

91 FORMAT (//*» MOTOR INERT 25X . F10 . 1 , IX > 3F6. 1 ) 

IF ( WM ( 2 ) .EQ. 0.) GO TO 89 

"WRITE F6, 92) WM f 2 ) * XM < 2 ) * YM ( 2 ) * ZM ("2T7 V;m7 3 ) > XM ( 3 ) * YM ( 3 > * ZM ( 3 ) 

92 FORMAT ( / > * MOTOR PROPELLANTS *. 19X * F10 . 1 * IX » 3F6. 1 *// . 

1 • MOTOR ’_*30X*F10_.3_.1X*3F6.1) 

* "89 IF TiMAHO) .EG. 0) GO f 0 '93 

WRITE (6*94) PRTK19) *PRT2(19) *PRT3(19) . P U4 ( 19) *PRT5<19) *XIOM(l> * 

iYIOM(l) *ZIOM(l) __ 

"'94' format (//'/'* 7X* THE"' INERTIA OF * NAME * * » 4 44 » A3./.7X* 

1 ' INERT ABOUT ITS CENTER OF GRAVITY IS ' * / / » 1 6X * ' TX =*. 

2F13.2* * SLUG -FT . SQUARED* .//* 16X. ' IY r* * =1 2 *_’_ SLUG-FT_._SGUA_RE_D ’ * _ 

3/7*l6X* 'IZ =* *F13.2* 'SLU6-FT. "SQUARED* )" 

CO TO 95 

93 WRITE ( 6 * 96J_ XIOM ( 1 ) * YI OM ( 1 ) * Z IOM ( 3 ) _ 

"96 FORMAT ( /// * 7X * * THE" INERT I A OF THE MOTOR INERTS ABOUT ITS CENTER OF 

1 GRAVITY IS* 

2 _ » // * l&X * 5 IX =»»F13.2** SLUG-FT. SQUARED **//* 16X ** I Y = » *_ 

2F13.2* 'SLUG-FT . SQUARED' *//*16X* ' IZ =* *F13;2* 9 SLUG-FT. SQUARED*') 

95 IF ( WM ( 2 ) .EQ. 0.) GO TO 97 

IF ( IMA (19) .EQ. 0 ) GO TO 98_ _ _ __ 

’ "wRI TE (6*101) PRT1 ('19) * PRT2 ( 19) *' PF 1 3 ( i 9 )' * "’RT 4 ( 19 ) #PRT5(19) » XI0M(3) 

1 , YI0.K3) r ZiOM ( 3) 

101 FORMAT (// » 7X * * THE INERTIA OF_* NAME * * * 4A4 . A3 * / * 7X * 

' " 1 "'ABOUT ITS CENTER OF GRAVITY IS'."//"* 16X* * IX =**' 

2F13.2** SLUG-FT. SQUARED 16X *• I Y ='*F13.2*' SLUG-FT. SQUARED* * 
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MAR72 


MAR72 
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MAR72*NEW 

MAR72*NEW 

MAR72*NEW 

**-2 
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l, 1 '! 4 A Y » 42t..2 1 8 i b » 301’ 


HATE 16 MAY 72 PAGE 


)i;0 -'37 
i; JO 2 3 3 
;jou?39 

ill; J2'}0 
0 U J w 4 1 

000242 
00 029 3 
000244 
Of 02 -5 
00024b 
.000247 ' 
000248 
000249 
C 0 0250 
000251 
j 0 0 752 
00 0253 
000254 
G0Q255 
UD <256 
UG 3257 
C 0 0 7 5 8 
;j0u2::.9 
000760 
00 0261 
000762 
:‘0l‘2(»2 
0 0 07 .74 
‘000265 
0 0 06 
;it'0rv,7 

ti t.' 0 7 6 9 

3 u or. 70 

00 0 2 7 1 

000272 

000273 

C con 74 

CO 0.27 5 

000776 

000277" 

C00278 

000279 

it 0 0 280 
000281 
0uo2.';2 
0 C 0283 
000284 
000225 
0 002716 
J 0 1 ' 2 6 7 
0 0 ;2!',S 
000^69 
006790 
0 0 G 2 9 1 
000292 

ir - . r. a. '* 

ouu . W 

000294 
000295 
0 C 0 2 9 6 


> FI 3. 2, 


SLUG— FJ 


soiiARrn' ) 


OF G_ 

= ' p 

SLUG-FT. SQUARED*) 


i 4A9 s A3 > / ) 


5//» lf,X» '12 :■ 

GO TO 97 

93 WRITE ( on 103) XTOM ( 3) p YTOM ( 3) p Z IOM ( 3 ) 

103 FORMAT <//»_7Xr» THE INERTIA OF TH E B ASIC MOJ 3R_ ABOUT ITS CENTER 

" 1RAVITY IS* >// 1 16X» 'IX -« pF13,?p 5 SLUG-FT. ' 50UARED * » // * 1 6 Y p ' I Y 
2F13.2» * SLUG-FT. SQUARED * p // • 16X » * IZ = ' »F1 3. 2 » 

97 CONTINUE 

IF (IAFLS «EO. iTGO TO "99" 

C *** SUMMARY* WEIGHT STATEMENT-VEHICLE INTEGRATION. 

___ _ WRITE (6* 19) _____ 

FORMAT (1H1 »///////// // p 2 6X > • SUMMARY WEIGHT STATEMENT **/> 

IF (IMA (28) .EQ. 0) GO TO 104 

WR I TE. (op 105 ) PR Tl ( 728 ! pPR T 2 ( 28 ).*P?J3 (_?8 L*P.?T.4.f_28>.» PRT5J 28) 

FORMAT (26X*'$ NAME * 

GO TO 106 

■I RITE (6 p 1 2 3 i 

WRITE ( 6 p 1 0 8 ) 

FORMAT* / r* MA* »42Xf 'WEIGHT CENTER OF GRAVITY ' p / p 46 Xp 

1'LB. ’ p.10Xp_' INCHES1p/757Xi1X Y ?' ) 

DO 21 I::21p27 
IF ( W < I > .EQ. 0.) GO TO 21 

WRITE ( 5 p 1 09 ) I MA ( I ) pPRTl ( I ) » PRT2 ( I )_' P9T3 LI ) • P_°T4 LI ) t PRT5JJ ) p W(I )_p 

IX ( I > !YU).2(I) 

1C9 FORMAT (ZpI3p3Xp4A4pA3* 17XpF10.1 p 1Xp3F6.1) 

_ 21 CONTINUE _ _ 

IF ( IMA ( 23 ) . EQ. 0) CO TO 110 

WRITE (6p l 11) PRTI (28 ) pPRT2(28) pPRT3(28) pPRT4(28) p PRT5 ( 28 ) p WM ( 4) . 

1XM<4) pYM(4) »ZM(4) ___ _ 

ill FORMAT '(■//"» »' *"nAME * » » 4A4» A3"T'DRV"'V7X "»F10 • t > 1 Xp3F6. 1 ) 

IF (K7(5) .EQ. 0.) GO TO 112 

WRITE ( fe p 113) PRTK2B) pPRT2(28) pPRT3_(23) ,FRT4(28) pPRT5(28> pWM(5) » 

" IX, M < b > » Vi-i ( 5) VZM ( 5 ) " PRTi (28) »PRT2<28 ) p PRT3 ( ?8) p PRT4 ( 28) ’» PRT5 ( 28 )V ~ 

1WM ( 6 ! p XM ( 6) pYM(6) pZM(6) 

113 FORMAT ( /p * * NAME * ' p4A4.A3p 'PROP. ' p5XpF10.1p1Xp3F6.1p//p 


mAR72*NEW 


MAR72**-1 


19 


105 F! 

104 

106 
108 


MAR72 


HO 

114 


115 


1 ' * NAME : 

GO TO 112 
V R I TE ( 6 p 114) 
FORMAT ( //*•' 
IF (V.MC5) .EQ. 
WRITE (6 pU5) 
“FORMAT < /*'» 

1 3Fo . 1 p // p ' 


' p 4 A4 p A 3 p 'WET' p 7X p F10 . 1 p lXi 3F6. 1 ) 

WM ( 4 ) p XM ( 4 ) p YM ( 4 )_p ZM ( 4 ) __ 

NON-CONTRACTUAL INERTS* , 1 5X »FiO . 1 # IX p 3F6. 1) 
0.) GO TO 112 

WM ( 5 ) i XM ( 5 ) pYM(5) p ZM ( 5) p WM (6 ) * XM (6) p YM ( 6) p 7M ( 6) 
WON— CONTRACTUAL PPOPeCLANTS'"* 1'OX *F10 . 1. IX * 
NON-CONTRACTUAL TOTAL * 16X p F10 . 1 * IXp 3F6. 1 > 


MAR72 


MAR72 

MAR72 


112 CONTINUE 

C *** WEIGHT AND BALANCE DATA-VEHICLE INTEGRATION. 

WRITE (6p 17) 

IF ( I M A ( 2 8 ) ,FQ. 0)G0 TO_ 122 

' V. R ITE ( 6 p 63) PRTI (28) pPRT2(28) pPRT3(28) p PRT4 ( 28) p PRTS (23 ) 
GO TO 124 
'/.'RITE ( 6 p 123 ) 


122 

123 

124 


FORMAT ( 27X r 'NON-CONTRACTUAL' p//) 

WR I T E ( 6 p 36 ) 

IF (IMA (28) .FP. 0) GO TO 125 

WRITE (S*88JPKT1 (28) pPRT2(28) pPRT3<28) pPRTF (28) 
1 X M ( 4 ) p YM(4) p ZM ( 4 ) 

XF(Wf-’(5) ,EQ. 0.) GO TO 126 


MAR72 


PRT5 ( 28 ) p WM ( 4 ) p 


17 R 1 TE ( 6 p 90 ) PRTI ( 28 ) pPRT2(23> pPRT3(28) pPRTA (28) pPRT5(28) pWM(5) p 
lXM(b) p YM<5) p ZM ( 5 ) pPRTI (28) pPRT2<28) pPRT3C7.8) pPRT4(28) pPRT5<2.8) * 

2l M (6) » X 1 ( 6 ) p YM ( 6 ) p ZM ( 6 ) * 

GO TO 126 “ ' " 

125 WRI TE ( 6 p 127 ) WM ( 4 ) pXM(4) pYM(4) pZM(4) 
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DATE 16 MAY 72 PAGE 


00 0297. 

000296 

030299 

000300 

000301 

000302 

000303 

000304 

Ct‘0305 

000306 

000307 

0 00 306 

000 309_ 

0 0 u 3 1 0 

0 (J U 3 1 1 

000312 

0UU313 

0 0 0 314 


.127 FORMAT ( // *7 

IF (KM (5) .EQ. 


_NOM-COMTRACTUAL_J^ , ERTS. , _*JJ”»E10..1*1X*3F6.1)_ 
0 . ) GO TO 126 


_MAR72 


WRITE ( 6 r 126 ) WM ( 5 ) >XM(5) , YM(5) »ZM(5> .WM(6) < XM(6) *YM(6> >ZM(6) 

126 FORMAT </,’ NON— CONTRACTUAL PROPELLANTS’ r 6X t F10 . 1 , 1X» 

13F6. 1 > / / * ' NON-CONTR ACTUAL TOTAL ’» 12X . f'l 0 . 1 p IX p'3F6 . 1 ) 

126 IF ( IMA (28) .EQ. 0) GO TO 129 

WRITE ( 6 » 94) PRT 1(28) . PRT2 ( 2 ft )_p PRTTS(2ft_> pP RTi (28) »PRT5(28) pXI 0 M(4) p 

1YI6m(4) p ZIOM (4 ) 

GO TC 130 

129 WRITE (6*131) XIOM ( 4 ) . YIOM ( 4 ) t ZIOM ( 4) _____ _ 

131 FORMAT (///p7Xp 'THE INERTIA OF THE NON-CONTI: ACTUAL INTERS ABOUT IT 

IS CENTER OF GRAVITY IS * » // » 16X » ’ IX =’pF13. 2.#' SLIJG-FT. SQUARED’ > 

?.// p 16X p ’ I Y - ’ > F13 . 2 > ’ SLUG-FT. SQUARED ’»//■ 16 X f » IZ =» »F15.2> 

3' SLUG-FT. SQUARED • ) 

130 I F ( V, M ( 5 ) .EQ. 0.) GO To 99 
i:-"(IMA(28) .EO. 0) GO TO 133 

WRITE (6.101) PRT 1 (28 ) pPRT 2(28> < PRT3 ( 28 ) p PRT4 (28 ) . PRT5 (28) fXiOM(6) 
1. YI0M(6) . Z I OM ( 6 ) 


MAR 72 
MAR72 


MAR72 


0 01:31 5_ 
U03316 
000317 
000318 
000319' 
00 j 320 
0 0 03.21 
b {.it 322" 
0 0 > i 3 2 3 
00 03 2 4 
U 0 u J 2 5 
000326 
00U327 
000223" 
000329 
000330 
00 4 33.1 
0 00 232 
0 0 o 2 - ' j 
CO Goo... 
00o333 
0 0 Cj 3 3 6 
000337 

0 0 0338 
000o39 
DOC 340 
000. >41 
V 0 u 3 'i 2 
O0u3'!3 
0 C 0344 
000345 

0 1 ’ 0 146 
000347 
0 no 3-: 8 
00034-9 
000350 
000351 
000352 
00 0253 

J ^ 

0 0 G 3 5 5 
000356 


GO TO 99 

" " 133 W F i I T E ( 6 f 1 3 4) X I 0 MC6 ) » Y 1 0 V (~6 j r ZIOM (6) 

134 FORMAT ( // > 7'X ? ’THE INERTIA OF THE MOM-CONTRACTUAL TOTAL ABOUT IT MAR72 
_1S CENTER OF GRAVITY_IS» p //f 16Xp_'IX_ = ’ »F13_.2_f • SLUG-FT. SQUARED’ f 
2// / 16X p ’ I Y " = ’ f F13 , 2 f * SLUG-FT." SQUARED’ f//(16Xf *IZ =’»F13.'2f ' 

3’ SLUG-FT. SQUARED’ ) 

99 CONTINUE 

C WEIGHT' AND "BALANCE DATA 

V. r< 1 TE ( 6 f 28) 

28 FORMAT ( 1H1 »///////. 24X f ’ WEIGHT AND BALANCE D ATA • f // , 47X f 

1 ’GIMBALlD' COMPONENTS'*/*" MA* F'ax'V’ ITEM'’ ‘f 31XV< weight " CENTER" of" grW 
2 1 T Y » 1 2 X f ’GIMRALEO INERTIA* ’ f/f48Xf ’LB. ’ fIOXf * INCHES’ p 18Xf 
3 ■ SLUG-FT. SQUARED. ’ p/p5 5 Xp *X Y Z» . I GXp * X-X _Y - Y Z-Z’ 

" 4 p : ' ' " 

DO 29 1=1 f 40 

IF ( v.’G ( I ! .EQ. 0.) GO TO 29 
WRITE ( 6 f 31 r IMA ( I ) > 

1 PRTKI) f PRT2 ( I ) f PRT3 ( I ) fPRT4(I) .PRT5(I) » WG ( I > »XG( I ) * 

2 YG ( I ) fZG(I) fXGIO(I) »YGIO(T) fZGIO(I) 

" 31” FORMAT ( / f 1 3 f 5X . 4 A4 f A 3~p 1 4 X"f FfO . T, IX f 3F6. 1 f 8> » 3F9. 2) 

29 CONTINUE 

IF ( IAFLG .. NE »_ 1) GO T O 666 

DO 667 1=1 i 3 
U= I s-6 

. WGM ( J ) =WGM ( I ) 

XGM(J>=XGM(I>" " 

YGM(J)=YGM(I) 

_ ZGM ( J ) =ZGM ( I ) 

V: G X X M ( J ) = v! G X X M ( I ) 

WCYYM(J)=WGYYM(I) 

_ VGZZ'1 ( J) = WGZZM ( I ) _ 

TGIXM ( J ) =TGI XM ( I ) 

TGIYM( J)=TGIYM(I ) 

TG I ZM ( J )_=T G I ZM ( I ) 

XGIOr'H J)=XGIOM(I>" 

YGIOM < J)=YGIOM(I) 

_ 657 ZGIOM(J)=ZGIO_M(J_) J 

666 "CONTINUE " " "" 

liR ITE ( 6 f 1 36 ) WGM ( 7 ) pXGU(7) fYGM(7) ,ZGM(7) »XG10M(7) . YGIOM (7) fZGI0M(7) 

l36_F0RMA T ( /pJUXp ’GIMBALED INERTS ’ » 15X p F10 . 1 > 3 X f 3F6. 1 f 8X f 3F9. 2 ) MART? 

IF (t/GM(si '.EQ. 0.) GO TO 137" 

WRITE ( 6 f 133 ) WGM ( 8 ) fXGM(8) fYGM(8) fZGM(8) fXCI0M(8) pYGIOM(B) f 


Vi<G,*,"> Y > 428*i 16 r 3 > 50 0 


HATE 16 MAY 72 PAGE 


00 0 357 
400350 
00u3B9 
C00360 
000561 
000562 
000363 
000364 
000365 
C J03v6 
000367 
000368 
000369 
00u370 
000371 
000372 
000373 
000574 


iZGIOf*. <B> * WGM < °) * XGMJ 9) * YG W (9) *ZGM ( 9 )_• XG I O'- 1 (9) * YGIOM ( 9>_» ZGI.OM <9) 

136 FORMAT </>iix* • GIMBALED PROPELLANTS * »7X* r 10.1» IX * 3F6. 1 * 8X , 3F9.2, 

1// * 1 IX * * TOTAL GIMBALED' * 16X * F 10 . 1 * IX * 3F6 . 1 * 8X p 3F9 . 2.) 

137 WRITE (6* 139) GIMX * G IMY » GIMZ 

139 FORMAT ( /*' ^INERTIA ABOUT THE GIM0AL POIN T '('LOCATED AT X=' .'F6.lt 
1* Y;< * F 6 • 1 * * Z='*F6.1*' INCHES.)*) 


C *** G I MB A LEO COMPONENTS. _ 

WRITE (&»33) Y)GM(7) *XGM(7) >YGM(7) »ZGM(7) 

33 FORMAT ( 1H1 * /////////// 1 24\* ► * GIMBALED COMPONENTS* *///,46X> 

1 * WEIGHT CENTER OF GRAV IT Y’ * / *_47X . * LB . » * 1 )X * * INCHFS • * // * 56Xj_ 

2 * X ~Y Z’ »//*’* GIMBALED INERTS' * 23 < *Flb . 1* IX * 3F6. 1 ) 


IF ( WGM ( 8 ) . EO . 0 . ) GO TO 140 

WE? I TE ( 6 * 14 1_) WGMJJ) ) . XGM (8 ) > YG M(B ) ,7GM ( A ) , WGM( 9 > * XGM (9 )_» YG f -’ ( 9 ) . 

i 2 GM ( 9 ) " 


1 4 1 F GRM AT ( 

1 />> GIMBALED PR OPE LLANT S » 15X » FIO ♦ 1 t IX * 3F6. 1 * 

2 ' //"» * TOTAL GIMbALED * * 24X * FlOYl *1X*3F6. 1) 

140 R I T £ ( 6 * 1 4 2 ) WGM (7) * XGIOM < 7) * YGIOM ( 7) *ZGI0iM7> 


0 0 03.75 142 FORMAT ( 

CO'. 376 " 1////*22X’ INERTIA ABOUT GJM3AL POINT* *//*46X* ’WEIGHT* * 10X* 

OUi o77 2* INERTIA* »/*47X* *LB. SLUG-FT. SQUARED ' * //* 56X t • X-X Y-Y 

000378 3 Z--2’*//*' GIMBALED INERTS *» 23X_tF10 . 1 r 3! : 1CU1 )_ 

000379 ‘ IF ( V.'GM ( 8 ) .EO. 0.) GO TO 143 

CCU300 WRITE 16.144) ROM ( 8 ) *XGIOM<6) *YGI0M(8) »ZGI0M<8) »WGM(9) *XGIGM(9) * 

000301 _ __ 1 YG I OM ( 9 ) * 76 1 OM ( 9 ) 

006382 ~ ‘ 144 FORMAT ( 

000363 1 /*’ GIMBALED PROPELLANTS ' * 15X FIO . 1 * 3F8 • 2 * 

0 0 0 384 _ _2 //»’ TOTAL GIMBALED » > ?4X ? F1<0 . 1 * 3F8 • 2 ) _ __ 

3 UO 51)5 ' C CALCULATION OF GIMBALED COMPONENTS INERTIA ABOUT CENTER OF GRAVITY 


000386 143 CONTINUE 

000367 WRITE < 6* 67) _ ; 

000708 ' 67 FORMAT ( /// > 20X * '""INERTIA ABOUT CENTER OF GRAVITY*) 

0 0:.' 3 09 DO 66 1 = 1 >3 

000590 N=I+6 

000371 ' IF(V. ; 6M<N) .EQ. O.) GO TO 66 ' 

OOL392 GCXIOM ( I ) =).'GYY,M (N) +WGZZM ( N> +TGIXM (N ) -WGM (N) * { YGM ( N ) *YGM (N) 

000393 1+ZGM(N)*ZGNUN> > 

PUL 394 ' ' GC Y IOK ( I ) =WGXXM ( N ) -i-VJGZZM ( N) +T Gl YM (N) - WGM (N.' « (XGM(N) *XGM(N) 


TO 03' 5 
C'ilj5')6 
UoC 397 
00 0398 
0 0.0399. 
0 0 0 4 0 0 
000401 
.,00 402 
C -.'04 03 


000404 
C 5 0 4 0 5 
0llo4'.i6 
000407 
000443 
00 0409 
l'C.0410 


JO, 


4 1 1 
U 0 <J 1 7 1 tL 
0^0 0 0 413 
1.041 4 
§00415 


000416 


1 +?' 3 M(N>*ZGM(N 5 ) 

_ 66 GCZIO.V ; I ) = ,VG Y YM ( f-J ) +WGXX.V) ( N) 4 - TGl ZM (N) -WGM (M X YG M ( N ) *YGM (_N)_ 

1 + XGM (N ) *XGM ( N ) ) 

DO 77 1 = 1*3 

GCXIOM { I ) =GCXIOM ( I ) / 4637 . 

PC Y I OM ( I ) =GC YIOMd j/ 4637 . 

77 GCZIOM ( I ) =GCZIOM (D/ 4637 . 

'/RITE ( 6 * 68 .) V.'GM ( 7 ) * GCXIOM ( 1 ) * GCYIOM (.1 ).* GCZIOM UJ 

68 FORMAT (/*’ GIMBALED INERTS « t 23 X * FI 0 . 1 » 3 Ffi. 2 ) 

IF ( WGM ( 8 ) .EG. 0 .) GO TO 145 

WRITE ( 6 * 144 ) __ 

1 V/GM ( 8 ) » GCXIOM ( 2 ) *GCYI 0 M( 2 ) * GCZIOM ( 2 ) * 

2 rGM ( 9 ) * GCXIOM ( 3 ) *GCYIO\«( 3 ) *GCZIOM( 3 ) 

.145 v:R I T£ ( 6 * 1 64 ) 

WRITE < 6 * 147 ) 

147 FOR, MAT (////////. 25 X* 'MATERIAL WEIGHT BREAKDOWN* ,//, 15 X ** MATERIAL* » 

11 CX* 'CODE' * 15 X> 'WEIGHT (LB.)') 

IFU'T :l fL(l) .NE. 0 .) WRITE ( 6 * 148 ) WTMTL(l) 

148 FORM, AT ( 12 X * 'ALUM' * 19 X* «A» * 15 X*F 30 . 1 ) 

Ir ( WTMTL ( 2 ) .NE. 0 .) WRITF ( 6 * 149 ! WT^TL_{ 2 i 

149 FORMAT ( 12 X * ' 80 RAL * * 18 X* ' 3 * * 15 X*F 10 . 1 ) 

IF ( WTMTL ( 3 ) .NE. 0 .) WRITE( 6 * 150 ) WTMTL ( 3 ) 


IMAR72 


MAR72 


MAR 7 2 


MAR72 


MAR72 


MAR72 

MAR72 
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36 


?\V 

eo 

►p* 


0 1 J il 4 1 / _ 
<)0(j418 
301)419 
000420 
000421 
000422 
.0 00423.. 
0 0 0424 
000425 
0UU426 
OC-0427 
000428 
0 U 0429 
000430 
0 0 44 31 
O','.) 4 32 
000433 
000434 
000435 . 
00 O' 55 
C"0.;437 
0.0 4 38 
000439 
GO 0440 
0 0 U 4 4 1 
C JO 442 ’ 
0 00443 
000444 
000446 
0 CO 4 46 
0.) j 4 4 7 
01)0448" 
000449 
Ou 0460 
OU0451 
C0U452 
GO 04 53 
' 0 0 046'!' 
0UG455 
00 0'< 56 
U U 04 57 
0J0458 
000459 
' 0 0 04 60 ' 
C 4 O': 61 
0 00 462 
0 0 .■ 463 
0 0 j 4 6 4 
0 u 0 4 6 5 
j 004-6 5 
0 0 j 4 67 
0 u •. 4 be) 

0 0 0 469 
0 0 U 4 7 0 
00o4 71 
0 3 3472 
GO..' 73 
3^3474 
"4 D-.75 

•J J L ' 76 


1 50 F 0 K >1 A ' T ( 1 2 X * J C R E S - 3 0 0 ’_* 1 5 X . JC ' .* 1 5 Y * F 1 0 . 1 ) 

IF ( WTMTL ( 4 ) .ME. 0.) WRITE (6.151) WTMTL ( 4 ) 

151 FORMAT ( 12X p " CRES-400-664 • , 11X. »D’ *15X*El(.l) 

IF(WTMTL<5)_ .ME. _0. ) WRITE ( 6_* 152 ) WTMTL (Jl__ 

152” FORMAT <12X* ‘ELECTRICAL* * 13X * ' E ' * 15X »FiO . 3 ) 

IF (WTMTL (6) .ME. 0.) WRITE (6* 153) WTMTL (6 ) 

153 FORMAT < 12X> » COPPER' > 17X * * F * > ISXiFlO.) ) 

IF (WTMTL (7) .ME. 6.) WRITE <6. 154 ) WTMTL (7 > 

154 FORMAT (12X* 'GRAPHITE' *15X. > G • * 1 5X * FI 0 . 1 ) 

JF<WTMTL(8>_ -ME. 0.) WRITE ( 6* 155) .WTMTL If ) 

155 FORMAT ( 12X * 'HASTELLOY' rl4X» *H* *15X*Fin.li 
IF ( WTMTL ( 9 ) .ME. O.) WrUE(6»156) WTMTL (9) 

.... 156 FORMAT ( l?X» ' INCONEL’.* 16X* * I ' » 15X . F10 . 1 ) 

IF (WTMTL ( 10 ) .ME. 0.) WRITE ( 6* 157) WTMTL (10) 

157 FORMAT (12X* ' A-286 ’ *18X. ' J ’ * .15X * F 10 . 1 ) 

IF (WTMTL (12) .ME. 0.) WRITE(6*15B) WTMTL ( 1 2J 

158 FORMAT (12X* *LeAD* * 19X> *L' *15X*Fin,i) 

IF (WTMTL (13) ,NE. 0.) WRITE<6.15°) WTMTL (13) 

159 FORMAT (12X* 'MOLYBDENUM' * 1 3X * *M* * 15X *F10 . 1 ) 

IF (WTMTL (14) .ME. 0.) WRITEC6* t’&0) WTMTL (14) 

160 FORMAT (12X* ' NITROGEN-L IGUIQ ‘ * 8X , ' N * . 1 5>- , F 10 , i ) 

IF (WTMTL (19) .ME. 0.) WRITE(6*t61> WTMTL(19) 

161 FORMAT ! 12X » 'STEEL CARBON '* 1 1 X S '* 15X * F 10 . 1 ) 

IF ( WTMTL (20 ) .NE. 0.) WRITE(6*162) WTMTL (20) 

162 FORMAT (12X* ’TIJANIUK* *JJ5X* ' T ' * 15V* FI 0 . 1 ) 

IF ( WTMTL ( 23) '.NE.' 6 .T WRITE ( 6* 1 63) WTMTL (23) 

163 FORMAT ( 12X * * WEST INGHOUSE SUPPLIED * 2X * • W * * 15X * F10 . 1 ) 
i.’R 1 TR ( 6 * 164 ) 

"i&4 FORMAT (lUlT 

C **>:■ CALCULATION AND PRINTING OF PRODUCTS OF INERTIA 

l>RITE(6t 165) __ _ _ 

165" FORMAT ( //////////////* 20 X * » TOTAL MOTOR "PRODUCTS -OF INERTIA * * // * 

110X* ’MOTOR INERT IOXZ MOTOR INERT IOXY MOTOR INERT IOYZ') 

_I = 1 

I F ( I aFLG THE V" T) I -7 
J- 1+2 

P I OXZ=V.’XZM ( I ) -WM ( I ) * XM ( I ) *ZM ( I ) 
p I OX Y~‘«X YM ( I ) -WM ( I ) s'XM'fl ) *YM< IT 
P 1 0 YZ-WY7M ( I ) -WM ( I ) * Ym ( I ) *ZM ( I ) 

WRITE ( 6 * 166) PJOXZ*PIOXY*PIOYZ 

16b FORMAT (10X* F10. 0* ‘9X * Fl 0 .0, ’ 9X *F1 6 . 0 ) 

K = I+1 

IF ( WM ( K ) .EG. 0.) GO.TO 170 __ 

"pIOXZ=WXZM( J)-WM( J)w XM(J)*ZM(J) 

P 1 OX y=wx YM ( U ) -WM ( J ) * XM ( J ) *YM ( J ) 

P 1 0 Y Z = W Y Z M ( J ) - W M ( U ) * Y M ( J ) * Z M (J ) 

WRITE ( 6 * .1.67 ) PIOXZ t PI OXY * PIOYZ 

167 FORMAT ( / * 10X * MOTOR TOT. IOXZ MOTOR TOT. IOXY MOTOR TOT. IOY MAR72 
1 Z**/ *10_X*F10._0 !l 9X*Flpj.O. 9X_* FI 0_._0) 

170 FRiTF. (6*164) ' ' ' ” ” ' " ” 

C *■**■ READ AND WRITE HISTORY OF CHANGES 

READ ( _ 5 > 200 » END-201 ) H<1 ) 

•“ 20 0 FORMAT ( A 1 ) 

IF (H ( 1 ) .NE. AH) RETURN 

L=1 

” 202 READ (5*203* END=201) H * CC »CO *PN > pp > p 

203 FORMAT (Al *A3"19A4»T1?A3*A1*2A4*A2*3A4.2A4 *A2*11A4) 

IFJH ( 1 ) _.EQ . AF) GO TO 201 
"IF (lid)" 

MLINE=10 


MAR72 

MAR72 


.NE'. STAR) GO TO 204' 
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0 01)4.77 
0 v C:*i 78 
CO 0479 
0 00 4 8 0 
0 0 0 481 
0CU432 
000483 
0 004 84 
000485 
0 u 04 36 
000437 
000488 
.000489 
000490 
000491 
000492 
00 0493 
U 00494 
0UU495 
0 0 0 4 9 o 
UC"J497 
0004.30 
000499 
G 0 0 b 0 0 
000 501 
Q.'0502 
POO 503 
0 8 0.504 
UCC505 


_ R I i 5 '■ 8 , 164^ 

2 Y 1 "continue " 

v'R XTE (6,205) H 

_2 0 5 _F 0 R M A T <////, 2 0 X, JCH A NGE A N_A L Y S ,1 S_ H I S TORY* • //, IP X A1..A3, 19A4 , //) 

V; i !~I T E ( 6 , 212 ) " ~ 

212 FORMAT ( 

_ 1 » CHG * , 5X f_lpATE 9 , 8X, 9 PAF . T NO . 9 > 5X , 9 WEIGH T PIFF. 9 , 5 X , 9 REMAR KS 9 •/) 

GO TO 202 " " " 

204 IF 4 ; ( 1 ) .£S, DOL) GO TO 206 

NLIWE^’LIWE + I _ _ ___ 

IF ( NLINE • LT . 55) GO TO 213~ 

WRITE<6,164) 

WRITE (6t212) _________ __________ 

MLIiJE-0 

213 CONTINUE 

_ IF (L_«GT •_ 1 ) GO TO 207 

WRITE (6,208) CC,CD,PN#PP,r< 

208 FORMAT ( IX, A3,3X»AX,2A4»3X, A2 » 3A4 r 3X * 2A4 r 3X,A2> 11A4) 

L=2 _ 

GO TO 202 

207 WRITE (6,209) H 

209 FORMAT^ 46X,A1, A3>1 9A4) _ 

GO TO 202 

206 L=1 

GO TO 202 _ _ 

201 WRITE (6,210) 

210 FORMAT ( IHlc /////, 50X> 'END OF JOB " NO MOPE CARDS 9 ) 

RETURN __ __ 

END 


7 « 


14: 00 :55 


END CUR 
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1 6 >1 A Y _ 7 2 _ P _1 4 : 0 0 : 5 5 IDE NT-VR ONAY _ AC CO U N T= 4 28218 CA ROS IN= 10 1 OUT= 0 

PAGES= 37* LIMES- 1,830. TIME=00 : 00 : 08 (HMS) 


ALL SOFTWARE ISD PROVIDES OR MAKES AVAILABLE FOR USE* IN AMY FORM WHATSOEVER* IS PROPRIETARY 
INFORMATION .OF I SO. .AND IS NOT TO B E CO PIED OR REPRODUCED WITHOUT PRIOR WRITTEN AUTHORIZATION BY IS P. 


A 4c ;> 4, ■■,■; /;■ ¥ -'f ¥ 


USER' NOTICES"”'’ - MAY 16* 1972 *** 


ISO'S 1108 ILL BE UNA '7aFC ABLE FOR TERMINAL SERVICE FROM 7? 00 - 7 V30 TOMORROW MORNING ( 5/17/72 ) TN ADDITION TO THE 

NORMALLY SCHEDULED DOWN TIME* TO MAKE EOUIPTMENT REPAIRS. 

4c 4 if $'$*!> ft'### 

< 1 ) ISO HOC term. I NAL_SER V I CE . W ILL RE AVAILAB LE A S SCHEDULED BE LOW U NLESS OTHERWISE SPE CIFIED IN A USER NO TICE. 

MON : 07:00 - 24:00 

iue - fri : 00:00 - 03: oo : _07joc - 24:00 ___ _ 

SAT : 00 : 00 - 22 : 00 " 

sun : 04:00 - 22:00 

<2 ) RON/ 1“ TELEPHONE" NUMBERS """' """ """'" 

10 CHAR/SEC 4.15-635-1051 ( 4 PORTS ) 


**#* 415-635-9559 IS NOW AVAILABLE FOR USE AS A 30 CHAR/SFC _OW SPEED PORT. 

**** _ ON 5/17/72* 415-562-4294 WILL _BE TAKEN OUT OF SERVICE_AS A L OW SPEED PORT.. 

(3) EFFECTIVE MONDAY - FRIDAY TURNAROUND TIME SHOULD BE REDUCED BETWEEN THE HOURS OF ln:30 - 11:30 AND 14:00 - 17:00 FOR USERS 

_ SUBMIT! ING IK'N-TAPE JOBS WITH RUM TIMES ESTIMATED AT LE SS THAN 6 MINUTES. [ 

(4) THE 1004 DIAL-UP PHONE NUMBERS ARE LISTED BELOW. 

• '1^5-562-0809 AND 415-562-0810 

(5) ATTENTION RON/1 USERS: 


BEGINNING MAY 15* A MAJOR REVISION TO THE RON/I SYSTEM -/ILL TAKE PLACE. ALL COMMANDS WILL REQUIRE AT LEAST 2 CHARACTERS. 

Tr.L SIGN-ON REQUIRES YOUR 6 CHARACTER ACCOUNT .NUMBER IN ADDITION. TO _YOUR SITE CODE ( BQSITEAO* 1 2345 6 ). 

TnE RON/I MANUAL" IS AVAILABLE FROM THE ISD DOCUVFNT "LIBRARY. 



V ■■ ■ ' * 1 :i ; p Ol'O 

< *$i ;Jt & ■*, .3 v, * 1 A :(C is * £ s': ^ X & '> -i $ A V 4 * : 5 ^4* £ A * LA' * ^ * 5 AjY A A 4' * A q -fcjfc ** A * * * * 7'^ ** * A * * * $ * ** 9 A * # + A_* * ** 0 *jfc**4? * +J* 1 * & ♦* Ajfr * 2 *T_* ^_A ** * * 3 * } 
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I. DEFINITION OF PROBLEM 


Program SD003A was written to sum weights, and calculate centers of 
gravity and moments of inertia for systems comprised of Major Assemblies, 
Assemblies, Sub-assemblies, and Parts. Moments of inertia can be input 
for the lowest level items used, or dimensional items and moment of 


inertia equations can be used to calculate these items. Program SD003A 
was written in Fortran for the Univac 1108 and replaces Kismet (IBM 7094) 


programs 942, 942A, 12001, and 12001A. 

II. TECHNICAL DISCUSSION 

Each Major Assembly can be comprised of Assemblies, which can be 
comprised of Sub-assemblies, which in turn can be comprised of Parts. It 


is not necessary that each of these "layers" be present. The Major 
Assemblies are collected in the following way: 


Item 


Major 

Assembly Nos . 


Basic Engine Dry 
Basic Engine Propellants 
Basic Engine Wet 
Vehicle Integration Dry 
Vehicle Integration Propellants 
Vehicle Integration Wet 
Total Engine Dry 
Total Engine Propellants 
Total Engine Wet 


1-19 

20 

1-20 

21-28 

40 

21-28, 40 
1-19, 21-28 
20, 40 

1-20, 21-28, 40 


Input items may be designated as Gimbaled (G) for additional calcu- 
lations. In addition, parts may be specified as to material of manufacture, 
and if it is a calculated, estimated or actual weight. 
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A. 


WEIGHT SUMMATIONS AND MOMENT CALCULATIONS 


1. Single Level Items 

A single level item is defined as a Major Assembly or 
Sub-assembly in which only one item is used. Parts are always Single 
Level Items. The following calculations are always made for Single 
Level Items . 


W*X 

W*X*X 

W*Y 

W*Y*Y 

W*Z 

W*Z*Z 

W*X*Z 

W*X*Y 

W*Y*Z 

where W = weight (mass) , lbm 

X = X-distance to reference point, in. 
Y = Y-distance to reference point, in. 
Z = Z-distance to reference point, in. 


( 1 ) 

( 2 ) 

( 3 ) 

( 4 ) 

( 5 ) 

( 6 ) 

( 7 ) 

( 8 ) 
( 9 ) 


If the Single Level Item moments of inertia are input 
(4Ixo » AI yo’ AI Z0^ ’ tiien the followin § is not computed.’ 


4I X0 - f*(W, 

XI, Yl, 

zi. 

R, 

r) 

(10) 

* 

ai yo = g (W, 

XI, Yl, 

zi, 

R, 

r) 

(ID 

* 

AI Z0 = h (W, 

XI, Yl, 

zi, 

R, 

r) 

(12) 


* See Table 1 for list of available equations. 



where 


Assemblies , 


where 


o 

AI^q, Alyg, AI^ = moment of inertia about own c.g., lbm-in. 

XI, Yl, Zl, R, r = part dimensions used in inertia calculations, in 


2 . Assemblies of More than One Single Level Item 

The following summations are made for Major Assemblies, 
or Sub-assemblies which contain more than one Single Level Item, 
n 

l W = W + W + . . . W (13) 

1 = 1 . 

n 


I wx = W X + W X, + 
i=l z *■ 


W X 
n n 


l WXX = W X 2 + W.X 2 + ... 
i=l 1 ■ * 


W X 


n n 


( 14 ) 

(15) 


n 

I WYZ = W.Y Z. + W.Y.Z_ + ... W Y Z 
111 222 nnn 


n 


.L AI xo “ AI xo + AI xo + AI xo 

i-l 1.2 n 


L Ai yo ai yo 1 + ai yo 2 + 


n 

I 

1=1 

n 

I 

1=1 


AI. 


YO 


n 


l AI Z0 - AI + AI + ... AI 


ZO 


n 


( 22 ) 

( 23 ) 

( 24 ) 

( 25 ) 


n refers to the number of Single Level Items contained in the 
Engine, Vehicle, Major Assembly, Assembly, or Sub-assembly. 
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where 


where 


Engine 


X = 


Y = 


Z = 


Centers of gravity are then calculated. 

I wx 

I w 

l WY 

I w 

I WZ 

I w 


(26) 


(27) 


(28) 


X = X coordinate to center of gravity, in. 
Y = Y coordinate to center of gravity, in. 
Z = Z coordinate to center of gravity, in. 


Total moments of inertia are then calculated. 


XO 


YO 


n 

2 


n 

2 


n 


■1 V 


I -2 


-2\ 

= y 

W Y. 

+ 

y 

w.z. 

+ 

y 

- 

y 

w. I 

I Y 

+ 

z 

L 

i=l 

i l 


, L 

i=l 

l l 


Li 

i=l 

XO. 

l 

\ i=l 

x i 

i 

l 


1 

n 

2 


n 

2 


n 

p 





-2 


-2 

= y 

W.X. 

+ 

y 

W.Z. 

+ 

y 

AI vr , - 


y 

w. 

X 

+ 

Z 

L 

i=l 

l l 


i=l 

l l 


Lt 

i=l 

Y °i 


li=l 

1 



. 

n 

2 


n 

p 

2 


n 

p 



n 

P 


1-2 


-2 

■- y 

W.Y. 

+ 

y 

W.X. 

4- 

y 

AI__ - 


y 

w. 

Y 

+ 

X 

Lt 

i=l 

i l 


L 

i=l 

i i 


Lt 

i=l 

z°i 


Li 

i=l 

1 l 





(29) 


(30) 


(31) 


2 

I , I , I„ n = moments of inertia about the reference, lbm-in. 

AU X U 4iU 

2 2 

(Note: To convert from lbm-in. to slug-ft , divide by 4637.) 

The products of inertia are also calculated for the Total 
Dry and Wet. 


n 


^zo ■ ^ Wi - 


n 

Jx \ 


(X)(Z) 


(32) 
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■no -j/iVi- (j/l)®® 


I v „. = l W.Y.Z. - l W.](Y)(z) 

YZO i=i 111 1/ 


(33) 


'3. Gimabled Components 

In addition to the calculations described above, separate 
computations are made for the Gimbaled components . Equations 1-31 are 
repeated for the parts indicated as Gimbaled on the input card. The moment 
is then transferred to the Gimbal point. 


*Xg I gXO + 


V - Vo + 


V Vo + 


n 


I w • 

o-n 


i=l 


gi 


i n 


u 


in \ I 

l W . 
i=l gl ( 

n , 

I W 


r_ 

! x 

I g 

L 





1 2 

_ 

2 

>1 + 

Z - ZIG 


i 

g 


J 



1 2 

> 

2 

■ + 

Z - ZIG 
g 



* 

i 


i=l 


gi 


u 


X - XIG 


,12 


Y - YIG 
g 


(35) 


(36) 


(37) 


where I^ , Xy g , I Z g = moments of inertia about Gimbal point, lbm-in 

W = weight of Gimbaled parts, lbm. 

g 

XIG, YIG, ZIG = coordinates of Gimbal point, in. 


. 2 


4. Percent Estimated, Calculated, or Actual Weight 

The weight input for a given component can use an E, C, 
or A for the weight code and each will be summed by Major Assembly to 
designate the percent of that component weight which is estimated, calcu- 
lated, or actual. 


£44 
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5. Material Code 

The weight input for a given component uses a "flag" to 
designate the type of material used. The weights are summed by material 
code and printed out. Codes are shown below. 


Flag 

A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

0 

P 

Q 

R 

S 

T 

U 

V 
W 
X 

Y 
Z 

Unused flags may 


Material 


Alum 

Boral 

Cres-300 

Cres 400-664 

Electrical 

Copper 

Graphite 

Hastelloy 

Inconel 

A- 2 86 

Lead 

Molybdenum 

Nitrogen-Liquid 


Steel Carbon 
Titanium 


Westinghouse Supplied 


be used to add future materials. 


6 . Change History 

Data cards can be added (optionally) so as to record the 
history of part and weight changes. No analyses of these data are performed, 
they are just printed. 
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III. PROGRAM INPUTS 


A. 

FIRST CARD 

- CONTROL 

CARD 





Decimal 

Columns 

Symbol 

Units 

Places 

Definition 

1- 7 

CONTROL 


N/A 

Not required 

8- 9 

NPF(l) 


0^ 


10-11 

NPF(2) 


0 


12-13 

NPF(3) 


0 


14-15 

NPF(4) 


0 

Page control for Major 

16-17 

NPF (5) 


0 

Assembly. Up to 10 Major 
\ Assembly numbers can be 

18-19 

NPF (6) 


0 i 

( designated and each will 

20-21 

NPF(7) 


0 

appear on a "fresh" page 
at printout. 

22-23 

NPF(8) 


0 


24-25 

NPF (9) 


0 


26-27 

NPF (10) 




28-43 



N/A 

Not used 

4^-47 

GIMX 

in. 

1 

X location of Gimbal point 

48-51 

GIMY 

in. . 

1 

Y location of Gimbal point 

52-55 

GIMZ 

in. 

1 

Z location of Gimbal point 

56-61 



N/A 

Not used 

62 

IAFLG 


0 

Flag to get "A" options - 
only Major Assemblies 1-20 
will be input and no items 
will be included for 



. 


Vehicle Integration. 

B. 

SECOND SET 

OF CARDS 




These cards describe the part names, weight and inertia 
characteristics. Any number of cards can appear under a given Major 
Assembly. If a Major Assembly is nonexistent, no cards need be input. 
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\ 


>- 





Decimal 


Columns 

Symbol 

Units 

Places 


Definition 

1- 2 

MA 


0 


Major Assembly number 

3- 4 

IA 


0 


Assembly number 

5- 6 

IASUB 


0 


Sub -Assembly number 

7- 8 

IP 


0 


Parts number 

9 

TWC^ 


N/A 


Flag for Actual, Estimated, 
or Calculated weight 

10 

TGC 


N/A 


Gimbal flag (G = Gimbal) 

11 

TMC 


N/A 


Type material flag 
(A-Z, see writeup) 

12-29 

TPRT(I) 


N/A 


Part name 

30-38 

TPRTN(I) 


N/A 


Part number 

39-43 

W(I) 

lbm 

1 


Part weight 

44-49 

X 

in. 

1 


X distance to reference point 

50-53 

Y 

in. 

1 


Y distance to reference point 

54-57 

Z 

in. 

1 


Z distance to reference point 

58-59 
60-62 (2) 

MIC 


0 


Moment of inertia formula 
code (See Table 1) 





Not used 

63-66 (2) 
67-70 (2) 

XI 

in. 

1 


X value used in moment of 
inertia formula 

Y1 

in. 

1 


Y value used in moment of 
inertia formula 


71-73 (2) 

Z1 

in. 

1 


Z value used in moment of 






inertia formula 

74-77 (2) 
78-80 (2) 

R . 

in. 

1 


R value used in moment of 
inertia formula 

r . 

in. 

1 


r value used in moment of 
inertia formula 

58-59 (3) 





Not used 

60-66 (3) 
67-73 (3) 
74-80 (3) 

AI ox 

ai oy 

AI oz 

lbm- in. 2 
lbm-in. 2 
lbm- in. 2 

0 

0 

0 


Moment of inertia about X axix 
Moment of inertia about Y axiz 
Moment of inertia about Z axis 

(1) 

TWC t A = actual, E = estimated, C = 

calculated 

(2) 

Used only when 

moment of 

inertia is 

to be 

calculated 

(3) 

Used only when moment of 

inertia is 

input 
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NOTES 


(1) If Part Name is not input for Major Assembly number 19, then titles of 
"Basic Engine" will be used on printout. If Part Name is input, it 
will be used. 

(2) If Part Name is not input for Major Assembly number 28, then titles of 
"Vehicle Integration" will be used on printout. If Part Name is input, 
it will be used. 

(3) If Propellant weights are not input (Major Assembly parts 20 or 40), 
then "Propellant" and "Wet" summaries will not be printed. 

(4) Each Major Assembly must be followed by a card with 88 in Columns 1 and 2 

(5) End of all weight data is followed by a card with 99 in Columns 1 and 2 
(immediately follows last "88" card) . 

(6) If no decimal point is input, the one indicated above is used. 


C. THIRD SET OF CARDS - CHANGE HISTORY 

If desired, change history cards can follow the second set of 
cards described above. This third set of cards are not required and can be 
omitted if no change history is desired. 

* 

1. First Card 

This card must contain the word HISTORY in Columns 1-7. 

2 . Second Card 

This card is a group header card and contains an in 
Column 1 and the heading in Columns 2-80. This card will be printed at the 
beginning of a new page. 

3. Third Card 

This is a change card and uses the following format: 
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Columns 

Symbol 

Item 

2- 3 

CC(I) 

Change code 

4-12 

CD(I) 

Change date 

13-26 

PN(I) 

Part number 

27-34 

PW(I) 

Weight change 

35-80 

R(I) 

Remarks 


4. Additional Remarks Cards 

Additional remarks can be included on subsequent cards in 
Columns 2-80. An unlimited number of cards can be used. 

5. End of Change Card 

A card with "$" in Column 1 designates the end of each 
change card comments. 

6 . Additional Change Cards 

Steps 3 and 4 may be repeated as many times as there are 
changes to a given group. 

7. Additional Groups 

Steps 2 through 6 can be repeated for as many groups as 

desired. 


8. Last Card 

A card with "FINISH" in Columns 1-6 terminates the job. 






AI X (ROLL) 


PARALLELOPIPED 
W (Y 2 + Z 2 )/12 


TABLE 1 -- MOMENT OF INERTIA EQUATIONS 


AI (PITCH) 


(SOLID ONLY) 

W (x 2 + Z 2 )/12 



AI Z (YAW) 


INPUT 

REQUIRED 


CODES 12, 13, 15, 16, 18, 19 ILLEGAL 


W (x 2 + Y 2 )/12 


x , Y , Z 


OTHER 



FRUSTRUM OF A CONE /CODES 23, 26, 29 ARE ILLEGAL 

43 22 34 2 2 4 3 22 34 

D = R + R r + R r + Rr + r , E = R + Rr + r , F = R + 4R r + 10R r + 4Rr + r 


„ _ /^2 , 2, . Wh /, . 2Rr 

G = (W/4) (R + r ) + ~r-g 1 + 


3W f R . - ~ r „ /10 

'R - r ' 

3W (^ + / 20 
l E 4E 2 / 

3w(e + ^)/a° 

w (R 2 + r 2 )/2 


l (R + r) 

: 3 w |i + ^i /20 

3W j| ♦ j/20 


W (R 2 + r 2 )/2 


3W f + ^y /20 
l E 4E 2 1 

3 w (t + S /2 ° 
3W (J^j/10 


X,R,r 


Y,R,r 


Z,R,r 


X, R,r 

Y, R,r 


W (R 2 + r 2 )/2 










TABLE 1 — MOMENT OF INERTIA EQUATIONS 




AI (ROLL) 


AI y (PITCH) 



SPHERE CODES 34, 35, 36, 37, 38, 39 ARE ILLEGAL J = 


AI Z (YAW) 


( p 5 5 

R - r 

« 3 3 

R - r 


2WR 2 /5 
2WR 2 / 3 


2WJ/5 


2WR 2 /5 

2WR 2 /3 

2WJ/5 


TORUS CODES 43, 46, 49 

ARE ILLEGAL 

W (4R 2 + 3r 2 )/4 

W (4R 2 + 5r 2 )/8 

W (4R 2 + 5r 2 )/8 

W (4R 2 + 3r 2 )/4 

W (4R 2 + 5r 2 / 8 

W (4R 2 + 5r 2 ) / 8 

W (R 2 + 3r 2 /2) 

W (R 2 / 2 + 5r 2 /4) 

W (R 2 /2 + 5r 2 /4) 

W (R 2 + 3r 2 /2) 

W (R 2 / 2 + 5r 2 /4) 

W (R 2 /2 + 5r 2 /4) 


2WR 2 /5 

2WR 2 /3 

2WJ/5 


W (4R 2 + 5r 2 )/8 


(4R 2 + 5^8 


W (4R 2 + 3r 2 )/4 


W (R 2 / 2 + 5r 2 /4) 


W (R 2 /2 + 5r 2 /4) 


W (R 2 + 3r 2 /2) 


INPUT 

REQUIRED 

OTHER 

x or r 

IF R - 0 

x or R 

Set R = x/2 

R,r 


R,r or x 

IF r = 0 


r = x/2 

R,r or y 

IF r = 0 


r = y/2 

R,r or z 

IF r = 0 


r = z/2 

R,r or x 

IF r - 0 


r = x/2 

R,r or y 

IF r = 0 


r = y/2 

R,r or z 

IF r = 0 


r = z/2 














TABLE 1 — MOMENT 


NERTIA EQUATIONS 


Page 3 


CODE 

AI (ROLL) 

A 

AI (PITCH) 

AI Z (YAW) 

INPUT 

REQUIRED 

OTHER 

5 

HEMISPHERE CODES 53, 56, 59 ARE ILLEGAL 




5 1 

2WR 2 / 5 

. 26WR 2 

.26WR 2 

R 

R 1 x 

5 4 

. 26WR 2 

2WR 2 /5 

.26WR 2 

R 

Rj_Y 

5 7 

2 

. 26WR 

. 26WR 2 

2WR 2 /5 

R 

R 1 Z 

5 2 

2WR 2 /3 

5WR 2 /12 

5WR 2 /12 

R 

R 1 x 

5 5 

2 ' 
5WR / 12 

2WR 2 / 3 

5WR 2 /12 

R 

R 1 Y 

5 8 

5WR 2 /12 

5WR 2 /12 • 

2WR 2 / 3 

R 

R i Z 

6 

CYLINDER 

2 2 2 
P = 3R + 3r + H 




6 1 

2 

WR /2 

W (3R 2 + H 2 )/12 

W (3R 2 + H 2 )/12 

R,x 

H = x 

6 4 

• 

W (3R 2 + H 2 )/12 

WR 2 /2 

W (3R 2 + H 2 )/12 

R,Y 

H = y 

6 7 

W (3R 2 + H 2 )/12 

W (3R 2 + H 2 )/12 . 

WR 2 /2 

R, z 

H = z 

6 2 

2 

WR 4 

W (6R 2 + H 2 )/12 

W (6R 2 + H 2 )/12 

R,x 

H ■ x 

6 5 

W (6R 2 + H 2 )/12 

2 

WR 

W (6R 2 + H 2 )/12 

R,Y 

H - y 

6 8 

W (6R 2 + H 2 )/12 

W (6R 2 + H 2 )/12 

WR 2 

R,z 

H - z 

6 3 

W (R 2 + r 2 )/2 

W P/12 

W P/12 

R,r,X 

H = x 

6 6 

W .P/12 

W (R 2 + r 2 )/2 

W .P/12 

R,r,y 

H = y 

6 9 

W P/12 

W P/12 

0 

W (R 2 + r 2 )/2 

R,r,z 

H - z 









